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ABSTRACT 

A program to control a hardware cellular automaton simulator was 
written in 6502 Assembly Language and BASIC on an ATARI microcomputer. The 
program allows the user to set up initial configurations for the simulator, 
download transition rules and apply the downloaded transition rule by sending 
the approbate commands to the simulator from the microcomputer. Further, it is 
possible to save interesting configurations through the use of the program. An 
evaluation of the utility of the control program in experimenting with cellular 
automata is made. 


Thesis Supervisor: Edward Fredkin, Professor of Electrical Engineering. 
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1. Introduction 

A cellular automaton is a space distributed dynamical system whose 
evolution law is uniform and local. It is a stylization of a physical universe. In this 
stylization, the "universe" consists of a uniform checkerboard, with each square 
or cell being in one of finitely many states; time advances in discrete steps and 
the "laws of the universe" are a small look-up table through which each cell on 
the checkerboard calculates its next state from the state of its neighbors. That is, 
the next state of the board is obtained by applying a local transition rule to each 
cell on the board simultaneously. 

Cellular automata were invented by John von Neumann in order to 
provide a general framework for proving the possibility of self-replicating 
automata. Von Neumann, found a cellular automaton where each cell had one of 
29 possible states, with a transition rule using the four orthogonal neighbors, that 
could replicate itself.^ 

The importance of cellular automata, however, lies in their connection 
with computation and physics. It is well known that very simple cellular automata 
exist which are computation universal, that is, one can simulate any process 
within the framework of these cellular automata.^ Furthermore, it has recently 
been shown that the functional behavior of a general-purpose computer can be 
reproduced by an ideal gas placed in a suitably shaped container and given 


1. [Gardener 71] 

2. Banks Rule on five neighbors, listed in the BASIC program, is an example. 
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approriate initial conditions.^ In this Billiard Ball Model (BBM) model of 
computation, concepts such as energy and entropy have a direct computational 
meaning. This result is significant with respect to cellular automata since it turns 
out that the Billiard Ball Model of computation is isomorphic to a cellular 
automaton. In fact, the cellular automaton that is isomorphic to the Billiard Ball 
Model of Computation is reversible, by which we mean that the present state 
uniquely determines the past and future state. This is very similar to microscopic 
laws in physics where knowing the initial conditions and the governing laws 
allows one to calculate the time evolution of that system in both directions. Thus, 
it seems that the study of the workings of cellular automata is similar to the study 
of physics. 

Simulating celluar automata by using a general purpose computer is too 
slow. A more dedicated and faster cellular automaton simulator is needed, to 
investigate the above ideas by direct experimentation. Such a cellular automaton 
simulator, implemented in hardware, was designed by Dr. Tommaso Toffoli at the 
M.l.T. Laboratory for Computer Science. With this hardware simulator one can 
set up an arbitrary initial configuration, an arbitrary transition rule, and display the 
result on a CRT monitor in real time (60 frames per second). The simulator was 
designed to provide an easy interface to the Motorola 6v520/6820 Parallel 
Interface Adaptor chip. 

The aim of this.project was to write a controlling program on the Atari 


1. [FredkinSI] 
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microcomputer (which has a 6820 at its disposal) so as to make it easier to use 
the simulator to investigate cellular automata. The program makes the hardware 
details of the simulator transparent to the user. 
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2. Simulator Control Program Description 
2.1 Atari-Simulator Hardware Interface 

In this simulator, the size of the "universe" is 256 cells by 256 cells, 
stored in a "memory plane" of 8K bytes. Here, we shall discuss the use of only 
two such memory planes. One memory plane holds the current configuration of 
the cellular automaton and the other holds the previous configuration of the 
cellular automaton. The two planes are bit-mapped on to the CRT monitor to yield 
one of four grey levels at each pixel of the display which has 256 usable 
raster-scan lines with 256 pixels per line. Thus, four states per cell are possible 
with the use of two memory planes. The simulator provides for up to eight 
memory planes so that up to 256 states per cell is possible. The hardware of the 
simulator is configured to support eight different transition tables but we shall 
discuss the use of only one transition table. The control program assumes that all 
eight memory planes and all eight transition tables exist so that no changes are 
needed in the software when the simulator is upgraded to have more memory 
planes and transition tables. It was found to be useful to have a buffer in the Atari 
that acts as an image for the memory planes that hold the configuration of the 
cellular automaton. This allows the contents of a memory plane, a slice of the 
configuration, to be more easily read or written to by the Atari. 

The simulator has four main modes of operation. They are as follows. 


Mode 1 : Read memory plane to Atari buffer 
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Mode 2 : Write Atari buffer to memory plane 

Mode 3: Download a transition table from the Atari 

Mode 4: Perform one of the eight functions of the simulator 

Four of the eight functions of the simulator shift the configuration of the 
cellular automaton to the left, right, down and up. The other four functions can be 
derived from either the contents of a RAM table or by combinational circuits. 
Currently, one function places a box in the middle of the simulator display, 
another function runs John Conway’s "Life", a third function applies the 
transition rule that is currently downloaded and the last function applies the 
current downloaded rule and then exor’s with the previous state to get the next 
slate of a cell. 

Communication to and from the Atari microcomputer to the 
cellular automaton simulator interface occurs through Port A and Port B of the 
6820 PIA chip. Also, the CB2 peripheral control line of the 6820 is utilized to 
generate a synchronization signal to the simulator. There are six registers on the 
6820 that are accessible to the MPU: two peripheral data registers. Port A and 
Port B, two data direction registers (one for each port) and two control registers 
(one for each port). Each of the 8 lines on both Port A and Port B can be 
configured for input or output corresponding to what bits are set in their 
respective data direction registers. The two control registers PACTL and PBCTL 
also allow the MPU to control the operation of the four peripheral control lines 
CA1,CA2,CB1, and CB2. 
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There are four types of commands that can be sent to the hardware 
simulator, corresponding to the four types of operation described previously. One 
command type is to read the memory planes of the simulator. The inverse 
command to write to the memory plane can also be sent. By being able to read or 
write to the memory planes of the simulator from the Atari, we can save a 
configuration of the cellular automaton on disk or download an arbitrary 
configuration. Another command is to send to the simulator the transition table 
to calculate the next state of each cell depending on the state'of its four 
orthogonal neighbors and it self. Both the hardware of the simulator and 
controlling software can be quickly changed to send the simulator a transition 
table that computes the next state of each cell depending on the state of its nine 
nearest nighbors including it self, however. Finally there is a command that tells 
the simulator to perform one of eight functions that the simulator supports. These 
eight functions have been previously described. 

All four commands are sent to the simulator from the Atari in exactly the 
same way. By convention, commands are sent through Port A and data through 
Port B. Bit A6 {MSB-1) of port A is used as a strobe to tell the simulator that a 
command is being sent. On the rising edge of A6, the low order 6 bits (A5-A0) of 
Port A, which hold the command and its parameters are latched by the simulator. 
The simulator decodes which command is being sent by decoding bits A5 and 
A4, The low order four bits specify which memory plane is being addressed, or 
the transition table being written to, or one of the eight hardware functions being 
requested of the simulator. When the simulator has finished processing the 
command it sends an acknowledge signal by setting its line to A7 of Port A, which 
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has been configured for input, high. Each of the commands except requests to 
perform one of the eight simulator functions is accompanied by a data transfer, 
transfer. Data transfers occur through Port B and are controlled by the CB2 
peripheral control line. By writing the control "word" 2C hexadecimal to the Port 
B cotitrol register, the CB2 line of the 6820 goes low on the first CLK pulse 
following an MPU write to the Port B data register. CB2 then goes high on the 
next CLK pulse to the 6820. Thus a strobe is generated every time data is written 
to Port B. Depending on the current command, data is transferred to the various 
subsystems of the simulator from the Atari. During an output operation the 
approriate subsytem utilizes the CB2 strobe to latch the data which is then 
available on Port B. During an input operation the Atari reads the data which is 
placed on the Port B lines by the simulator and writes this back to Port B. Since 
Port B is configured for input at this stage it does not change the data at the 
simulator. However, the strobe on CB2 is still produced because an MPU write to 
Port B has taken place. The simulator then uses the strobe to place the next byte 
of data on the Port B lines. Communication between the Atari and the simulator 
may be disabled by setting bit A6 of Port A high. 

2.2 Assembly Language Routines 

The control program is divided into two parts, one part is written in 6502 
Assembly Language and the other part is written in BASIC. The assembly 
language routines perform the actual I/O between the Atari microcomputer and 
the simulator. The BASIC language routines essentially provide the user interface 
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and controls the simulator by calling the appropriate assembly language routines. 
The object code for the assembly language routines is stored in a file on disk 
called AUTORUN.SYS . The disk operating system of the Atari will load the 
contents of this file, if it exists, on the disk into the memory of the Atari every time 
the system is booted. Another aspect of the AUTORUN.SYS facility on the Atari is 
that the programmer can specify that certain segments of the code should be 
executed as soon as it is loaded into memory. The other segments are executed 
for the first time when they are called by some routine. This facility has been used 
with the assembly language portion of the simulator control program (and is more 
fully documented in the assembly language listing) to perform initialization. First, 
the system initialization vector is changed to point to a new initialization routine. 
This new routine initializes the simulator control program and then performs the 
normal system initialization. Thus, when a <Return> command is executed the 
simulator control program is initialised along with the Atari. 

The initialization part of the assembly language routines reserves all 
memory above 7000 hexadecimal for the display buffer and the assembly 
language routines. The display buffer is 8K locations, (each location holds a 
byte), in letigth and is used to read the configuration of the cellular automata or 
to write a new configuration to the simulator memory plane. Further, we create a 
display list in a high part of memory for future use. A display list is a set of 
instructions to the Antic video processor which is a part of the Atari 
microcomputer, specifying where to find the memory for the Atari screen display 
and how to interpret the values in the screen RAM. Originally, it was intended to 
be used to overlay an enlargement of a section of the simulator display on the 
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terminal screen but has not been implemented for a variety of reasons. Currently, 
it serves no useful purpose. Finally, the background control process for the 
hardware simulator is initialized. This is one of the most crucial parts of the 
simulator control program .The background control process is called as a 
timed-interrupt routine. The system vector for the countdown timer CDTMV2 is 
changed to point to the routine for the background process. Every 1/60 of a 
second the timer CDTMV2 is decremented. If after decrementing, the count 
reaches zero, then the background process is called. Then the process sends a 
command to the simulator to perform one of its eight hard-wired functions . The 
other three types of commands on the simulator are useful mainly for setting up 
initial configurations and downloading transition rules. One can’t actually make 
the simulator "do something" with these commands. However, once the initial 
configuration is set and the transition rule is downloaded one would like the 
simulator to apply the transition table to the configuration, or move it to the right 
and so on. And one would like the simulator to continue to perform each of these 
commands until one wishes to stop that command. Two variables, NUMFNC and 
PERIOD, are passed as arguments to the background control process with 
BASIC poke statements. The background process uses NUMFNC to decide which 
function to request of the simulator. PERIOD determines the frequency with 
which the background process is called. Before the call to the background 
process terminates it loads the countdown timer CDTMV2 with the contents of 
PERIOD. Hence, by poking the appropriate value into PERIOD, one can stop the 
simulator or change the speed at which the simulator is running. 

The following is a descriptions of the other assembly language routines 
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that have a hand in controlling the simulator. 

The subroutine SETDAT sets up data transfer from the Atari to the 
simulator. It assumes that it is being called from BASIC and hence it expects that 
both the command and the direction of data transfer is passed to it as arguments 
on the stack. The routine also has an assembly language entry point where the 
parameters to the routine are passed to it in the 6502 registers. Many of the 
assembly language routines have this feature. The command is sent to the 
simulator by calling the subroutine COMMND. The direction for data transfer is 
then set by writing the direction value to the Port B data direction control register. 
Finally, the control "word" 2C hexadecimal is written to the Port B control 
register to generate a strobe on the CB2 peripheral control line as explained 
previously. 

The routine CMMND assumes that the command to be sent to the 
simulator is passed to it in the lower six bits of the accumulator. CMMND 
initialises the 6820 and sends the command through Port A by toggling bit A6 of 
Port A to strobe the command in the lower 6 bits of Port A to the simulator. 

The routine STPDAT disables data transfer from the Atari to the 
simulator by preventing the toggling of bit A6 by setting it high and by .setting the 
direction control registers for input. 

The routines WRITED and RDDSP perform inverse functions with 
respect to each other. The routine WRITED writes the display buffer in the Atari 
memory to the memory planes of the simulator. Hence, one can place any desired 
configuration on the simulator display by placing the configuration in the display 
buffer and calling the routine WRITED. The routine RDDSP reads the 
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configuration from a memory plane of the simulator and stores it in the display 
buffer. 

The contents of the display buffer, the configuration, can be saved on 
disk by calling the routine SAVBUF after an "OPEN.." command in BASIC. The 
routine SAVBUF uses the Centralized Input/Output (CIO) facility of the Atari’s 
operating system. 

The CIO facility provides for device-independent data transfer. From the 
point of view of the operating system, I/O is organised around a standard table, 
called an Input Output Control Block (lOCB), that completely specifies some input 
or output operation. A partial list of an lOCB appears on the first page of the 
assembly listing. There are eight lOCB’s starting at 0340 hexadecimal . Each 
lOCB is 16 locations in length. In most cases, the user sets up an lOCB with the 
approriate control data in the group of 16 locations chosen and then passes 
control to the CIO facility which does the rest. 

For example,the basic command : OPEN 3,8,0,"D:BUF" would 
associate lOCB #3 (starting at 370 hexadecimal) with the file in the disk called 
"D;BUF" .The value of the second argument tells the CIO facility that it is an 
output operation to that file. The second argument of the OPEN command would 
be 4 for input. Now, by changing the control data in lOCB #-3 we can perform 
various I/O operations (all of an output nature to the file D:BUF). If we set the 
command byte (which would be located at 372 hexadecimal for lOCB #3) to OB 
hexadecimal, the "put characters" command and set the buffer addresses 
(located at 374 and 375 hexadecimal for lOCB #3) to the start of the display 
buffer and if the length of the display buffer is placed in the locations for the 
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buffer length for lOCB #3 {which would be at 378 and 379 hexadecimal) the 
contents of the display buffer is written a byte at a time to the file D:BUF. The 
SAVBUF routine expects the number of the lOCB used to be passed to it as an 
argument so that it can calculate where to place control data changes for that 
lOCB. The LOADBF routine is identical except that the command byte is 07 
hexadecimal, or the "get characters command". Further, the second argument 
to the OPEN statement is a 4 to specify an input operation. When I/O is finished, 
a "CLOSE.." statement is needed. 

If the above explanation is not sufficiently clear, the reader is 
encouraged to consult the operating system manual for the Atari microcomputer 
for further clarification. 

Finally, there are two routines that are used in setting up the initial 
configuration of the simulator. SETPLN writes the value, passed to it on the stack 
by a BASIC call, to the simulator memory plane specified, which is also placed on 
the stack as an argument to the call. Unfortunately, at the moment, one can only 
specify an area that is one pixel high by eight pixels wide (1 byte) using this 
command. The simulator display will be formed from this "atomic" unit. 

The more useful routine is INITSN which AMD’s, OR’s, or EXOR’s the 
display buffer with the memory plane specified, and returns the configuration to 
the display buffer. By using INITSN judiciously, one can generate a fairly large 
variety of initial conditions. The routine WRITED is called to send the display 
buffer to the simulator display once one is satisfied with the contents of the 
display. A BASIC routine version of INITSN does this automatically for the user. 


- 17 - 


2.3 BASIC Control Program 

The part of the control program that is written in BASIC controls the 
cellular simulator at a higher functional level. It provides the user interface and 
calls the appropriate assembly language routines to carry out the user requests 
concerning the cellular automaton. The initialization section defines variables 
that hold the addresses of the various assembly language routines. With one 
exception, (i.e. the use of BUFPLN for INITSN), the variable name refers to the 
corresponding assembly language routine with the same name. A note should 
also be made of location 764, KCODE. This location holds the key code for the 
last character entered. For example, if "A" was the last character entered then 
location KCODE would hold 63. (The KCODE values were discovered by 
experimentation). 

The user is placed in a variety of command environments by the 
program, and stays in that environment until a command is received asking to 
leave that command environment. At the top level of each command 
environment, user prompts are read in from the disk, giving the user a list of 
commands that are available in that command environment. Prompts are read in 
from disk to conserve the limited RAM resources of the microcomputer. This 
reduces the readability of the code, but by referring to the appropriate prompt 
file, listed in the appendix, it should not be difficult to follow the program. For 
example, at the top level of the program the file "D:TOPLVL.PMT" is printed on 
the Atari screen giving the user very general options. Once the user has chosen 
an option, control is passed to that command environment and a new list of 
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options becomes available. 

The following is a description of the various command handlers in the 
BASIC program. 

The handler to define and download a new transition rule simply prints 
on the terminal screen the 10 lines of the program, 30000 to 30010 and exits the 
program, leaving the user in Atari screen edit mode. The user can then use the 
screen editor to define the transition rule in those lines of code. This actually 
changes the RAM-resident program. The user enters "CONT <RETURN>" to 
resume execution. To download this rule, the download routine is called. It calls 
the assembly language routine called SETDAT to set up the simulator to accept 
the transition table. 

Then the transition table is generated for this rule. For every possible 
state of a center cell and its four neighbors, the next state of the center cell is 
calculated then poked out to Port B. The hardware of the simulator latches the 
output or Port B only every other time during the downloiiding of a transition rule 
and this necessitates another poke Port B command. The transition table that is 
generated and downloaded, is encoded as a text string and stored in a global 
variable called SAVES. Finally, data transfer to the simulator is disabled by a call 
to the assembly routine STPDAT. 

The command handler to save or retrieve transition rules is very simple. 
To save a definition of the transition rule, the user is asked for a name to save the 
rule under, and the definition in lines 30000 to 30010 are written to that file. To 
retrieve the definition of the rule, the user-specified rule (file) is entered from disk, 
replacing lines 30000 to 30010 of the RAM-resident program v>/ith the new rule. 


- 19 - 


To save the transition table only (which saves space on disk), the string SAVES 
holding the encoded transition table is written to a file with a name specified by 
the user. To retrieve the table from a user specified file, the content of the file is 
entered from disk and saved in SAVES. To download a transition table retrieved 
in the form of a text string is analogous to the way a transition rule definition was 
downloaded. Instead of calculating the next state of the center ceil and sending it 
out, the string SAVES is decoded one character at a time and sent to the 
simulator. 

The command handler to setup the initial conditions of the simulator 
merely calls the appropriate assembly language routine, with the exception of the 
command to place a box in the display buffer. This command is carried out by 
poking the area of the display buffer that corresponds to the center of the 
simulator display. 

The command handler to run the simulator is also very simple. It pokes 
the function number of the requested command into NUMFNC and turns on the 
background process by writing a "1" to the countdown timer, CDTMV2, which 
enables it. Further, depending on whether the command is to be done once or 
repeatedly, the location PERIOD is poked with zero, or the period in 1/60 
seconds between sucessive commands being sent. The command to try to 
reverse the simulator is the only interesting command in the run simulator 
command environment. If the next state of a center cell is determined, by 
applying the current transition rule to the the present state of that center cell and 
exoring it with the previous state of the center cell, this yields a reversible rule as 
can be seen in the following. 


- 20 - 


Here, C(t) means the state of a cell at time t and F[C(t)] is the value 
computed by applying the transition rule to that cell at time t. Then: 

C{t + 1) = F[C(t)] EXORC(t-l) 
and exoring both sides with F[C(t)] yields: 

F[C(t)] EXOR C(t + 1) = C(t-1) 

With a change of variable, T = t +1, the equation becomes: 

F[C(T-1)] EXOR C(T) = C(T-2) 

That is, one can calculate the state before the previous state from the present 
and previous states. We can reverse the cellular automaton.^ Thus the command 
to try to reverse the simulator simply swaps the past state memory plane with the 
present state memory plane. By running the reversible rule, one should then be 
able to return to the initial conditiori of the simulator. 

The command handler to read from or write to a memory plane calls the 
assembly language routine RDDSP and WRITED respectively. The command 
handler to save the display buffer calls the routine SAVBUF and stores the display 
buffer in the file specified by the user. To load the buffer from a file specified by 
the user the routine LOADBF is called. 

There is I think Sufficient comments for the program to be fairly readable. 


1. This idea is due to E.Fredkin and N.Margolus. 
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3. Conclusions 

The cellular-automaton control program described here works well 
enough, particularly, if one is willing to accept a relatively small variety of initial 
conditions. However, it is a very simple matter to simulate any cellular automaton 
with a transition rule that is a function of up to 4 adjacent (orthogonal) neighbors 
and the current state of the center cell by using the program. Further, the 
program is user-friendly to the extent that one could learn how to use it very 
quickly. One could increase the variety of initial conditions available for the 
simulator if one had such functions as writing a random pattern of 1’s and O’s to 
the simulator, or if one could rotate the display for example (and EXOR, AND OR 
with the display buffer to get a different configuration),and thus improve the 
program. One could write a subroutine that would mal^e it easy for the user to 
poke a custom-designed configuration into the display buffer and then write to 
the simulator. More importantly, I think there is a need for some type of package 
to do some sort of statistical analysis on the cellular automaton, although its not 
clear to me how to go about doing this. There is certainly a lot more vyork that 
can be done. 

However, I think the main utility of this project lies in its simplicity. I have 
tried to make it fairly easy for someone to understand the control program 
described here and to add any commands that the person finds lacking. 


- 22 - 


4. References 

[Gardener 71] Gardener M., "Mathematical Games", Scientific 
American 224:2 (1971), 112-117 

[Fredkin 82] Fredkin E., and Toffoli T., "Conservative Logic", Int. J. 


Theor. Phys. 21 (1982), 219-253 






oooc 

006A 

02E4 

OOCB 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 


THE FOLLOWING CELLULAR AUTOMATA 
SIMULATOR CONTROL PROGRAM IS 
STORED IN A FILE ON DISK CALLED 
AUTORUN.SYS. THE OPERATING 
SYSTEM WILL THUS LOAD THIS 
PROGRAM INTO ATARI RAM EVERY 
TIME THE SYSTEM IS BOOTED 
THE AUTORUN.SYS FACILITY ALSO 
ALLOWS THE USER TO SPECIFY THE 
"INIT" AND "RUN" ADDRESSES OF 
THE PROGRAM. THE PROGRAM IS 
EXECUTED BEGINING AT THE "INIT" 
ADDRESS UNTIL AN RTS INSTRUC¬ 
TION IS ENCOUNTERED. THEN THE 
PROGRAM CODE STARTING AT THE 
"RUN" ADDRESS IS EXECUTED UNTIL 
A RTS INSTRUCTION IS ENCOUNTER¬ 
ED 

THE FOLLOWING SECTION OF THE 
PROGRAM RESERVES MEMORY.INIT¬ 
IALISES THE MODE OF THE SCREEN 
DISPLAY 

FURTHER.THE SYSTEM INITIAL¬ 
ISATION VECTOR STORED AT 
LOCATION DOSINI IS REPLACED 
WITH OUR OWN INITIALISATION 
VECTOR. 

LABELS ARUN AND AINIT ARE THE 
RUN AND INIT ADDRESSES USED BY 
THE AUTORUN.SYS FACILITY 

OPERATING SYSTEM EQUATES 


1370 

DOSINI 

= 

soooc 

DISK OPERATING 

1380 




SYSTEM INIT ADRS 

1390 

RAMTOP 

= 

$006A 

TOP OF RAM 

1400 

RAMSIZ 

= 

$02E4 

SIZE OF RAM 

1410 

PGZ 

= 

$CB 

FREE PAGE 0 LOC 

1420 

:O.S. - 

ADRESSES FOR CIO 


1430 





1440 

ICHID 

= 

$0340 

HANDLER ID 

1450 

ICDNO 

= 

ICHID+1 

DEVICE NUMBER 

1460 




BOTH OF 

1470 




ABOVE SET BY CIO 

1480 

ICCOM 

= 

ICDNO+1 

COMMAND BYTE 

1490 

ICSTA 

= 

ICCOM+1 

STATUS BYTE SET 

1500 




BY CIO 

1510 

ICBAL 

= 

lCSTA+1 

BUFR ADRS (LOW) 

1520 

ICBAH 

= 

ICBAL+1 

BUFR ADRS (HIGH) 

1530 

ICPTL 

= 

ICBAH+1 

1540 

ICPTH 

= 

ICPTL+l 


1550 

ICBLL 

= 

ICPTH+1 : 

BUFFER LENGTH LO 





0349 


1560 

IC8LH 

= 

IC8LL+1 

BUFFER LENGTH HI 

034A 


1570 

ICAXl 

= 

IC6LH+1 

AUX 1 

0348 


1580 

ICAX2 

= 

ICAXl+1 

AUX 2 



1590 





0007 


1600 

GETCH 

= 

$07 

GET CHARS CMMD 

0008 


1610 

PUTCH 

= 

$08 

PUT CHARS CMMO 

0003 


1620 

OPEN 

= 

$3 

lOCB OPEN CMMO 

OOOC 


1630 

CLOSE 

= 

$C 

lOCB CLOSE CMMD 

E456 


1640 

CIOV 

= 

$E456 

CIO ENTRY POINT 



1650 





E477 


1660 

COLDSV 

= 

$E477 

COLDBOOT VECTOR 

OOFF 


1670 

LO 

= 

$00FF 

LOW BYTE MASK 



1680 




ADDRESS&LO=LOW 



1690 




BYTE OF ADDRESS 

0100 


1700 

HI 

= 

$0100 

ADDRESS/HI= HIGH 



1710 




BYTE OF ADDRESS 

0228 


1720 

CDTMA2 

= 

$0228 

PTR TO TIMER RTN 

021A 


1730 

CDTMV2 

= 

$021A 

COUNTDOWN TIMER 

00D4 


1740 

RESLTL 

= 

$04 

LOW BYTE OF RSLT 

00D5 


1750 

RESLTH 

= 

$05 

HI BYTE OF RESLT 

OOFF 


1760 

OUT 

= 

$FF 

PIA DIR = OUTPUT 

0000 


1770 

IN 

= 

$00 

PIA DIR = INPUT 

7000 


1780 

D8UF 

= 

$7000 

START OF DISP BFR 

9C20 


1790 

DSPLST 

= 

$9C20 

START OF DISP LIST 

0098 


1800 

CR 

= 

$98 

END OF LINE CHAR 



1810 





0000 


1820 


* - 

$9000 

PROGRAM STARTS AT 



1830 




9000{HEX) 

9000 


1840 

ARUN 

= 

« 

DEFINES A LABEL 



1850 




AT THIS LOCATION 

9000 

4C0690 

1860 


JMP 

CHGVEC 

CHANGE THE SYSTEM 



1870 




INIT VECTOR 



1880 





9003 


1890 

AINIT 

= 

* 

DEFINES A LABEL 



1900 




AT THIS LOCATION 

9003 

4C2B90 

1910 


JMP 

CINIT 

INITIALISE C.A. 



1920 




SIMULATOR 



1930 




CHGVEC STEALS THE 



1940 




SYSTEM INIT VECTOR 







STORED AT LOC DOSINI 



1950 




SO THAT IF A <RESET> 



1960 




IS EXECUTED BOTH THE 



1970 




SYSTEM AND SIMULATOR 



1980 




ARE INITIALISED 

9006 


1990 

CHGVEC 

= 

* 


9006 

A50C 

2000 


LDA 

OOSINI 

GET LOW BYTE OF 

9008 

8D1990 

2010 


STA 

SAVINI 

SYS INIT VEC AND 



2020 




SAVE IT 



2030 




SAME FOR HIGH BYTE 

9008 

A50D 

2040 


LDA 

OOSINI+1 


900D 

8D1A90 

2050 


STA 

SAVINI+1 




2060 




NOW GET LO BYTE 

9010 

A91E 

2070 


LDA 

#INIT&LO ; 

OF ADR OF NEW 

9012 

850C 

2080 


STA 

OOSINI : 

INIT ROUTINE 



2090 




AND CHANGE LOW 



2100 




BYTE OF O.S INIT 







2110 




VECTOR. DO SAME 



2115 




FOR HIGH BYTE. 



2120 




GET HIGH BYTE OF 



2130 




ADR OF NEW INIT 

9014 

A990 

2140 


LDA 

#INIT/HI 

ROUTINE 

9016 

850D 

2150 


STA 

DOSINI+1 

STORE RESULT 

9018 

60 

2160 


RTS 


END OF CHGVEC 



2170 





9019 


2180 

SAVINI 

* = 

*+2 

SAVE 2 LOCS FOR 



2190 




FOR SAVINI 

901B 


2200 

SYINIT 

= 

* 


901B 

6C1990 

2210 


JMP 

(SAVINI) 

GOTO DOS INIT 



2220 




THE NEXT SUBROUTINE 



2230 




IS THE NEW INITIAL¬ 



2240 




ISATION ROUTINE FOR 



2250 




THE SYSTEM 

901E 


2260 

INIT 

= 

« 


901E 

201B90 

2270 


J3R 

SYINIT 

DO SYSTEM INIT 

9021 

202B90 

2280 


JSR 

CINIT 

DO AUTOMATA INIT 

9024 

60 

2290 


RTS 


END OF INIT 



2300 





9025 


2310 

REBOOT 

= 


GOTO COLDBOOT 

9025 

4C77E4 

2320 


JMP 

COLDSV 

ROUTINE 



2330 




CINIT RESERVES MEMORY 



2340 




INITS SCREEN DISPLAY 



2350 




MODE AND INITS BKGND 



2360 




CONTROL PROCESS 

9028 


2370 

SNAME 

= 

* 


9028 

53 

2380 


.BYTE '’S:",CR ;NAME OF SCRN DEV 

9029 

3A 






902A 

9B 

2390 



1 


902B 


2400 

CINIT 

= 

* 




2410 





902B 

A970 

2420 


LDA 

ff%70 

RESERVE MEMORY 

902D 

856A 

2430 


STA 

RAMTOP 

ABOVE 7000 HEX 

902F 

8DE402 

2440 


STA 

RAMSIZ 




2450 

♦ 






2460 

:NOW SET THE 

: SCREEN DISP MODE 



2470 

:BY USING THE OPERATING SYSTEM 



2480 

:CENTRAL I/O (CIO) FACILITY 



2490 

♦ 




9032 

A902 

2500 


LDA 

ffZ ; 

SET UP ACC FOR 



2510 




A MODE 2 SCREEN 

9034 

A260 

2520 


LDX 

ii'$60 ; 

SET UP INDEX REG 



2530 




X TO DESIGNATE 



2540 




IOCB#6 

9036 

9D4B03 

2550 


STA 

ICAX2,X : 

PASS INFO TO CIO 

9039 

A903 

2560 


LDA 

#OPEN ; 

SETUP FOR OPEN 

903B 

9D4203 

2570 


STA 

ICCOM.X : 

OPEN SCREEN 



2580 




DEVICE BY PASSING 



2590 




INFO TO CIO 

903E 

A920 

2600 


LDA 

#SNAME&LO 


9040 

904403 

2610 


STA 

ICBAL.X 


9043 

A990 

2620 


LDA 

#SNAME/HI 


9045 

9D4503 

2630 


STA 

ICBAH.X ;SET UP BUFFER 










2640 



POINTER TO POINT TO 



2650 



FILE NAME OF SCREEN 



2660 



DEVICE 

9048 

2056E4 

2670 

JSR 

CIOV 

GOTO CIO ENTRY 

904B 

30D8 

2680 

BMI 

REBOOT 

POINT. N-BIT IS 



2690 



SET IF I/O REQUEST 



2700 



FAILED 

904D 

A90C 

2710 

LDA 

#CLOSE 

IF I/O DONE 

904F 

9D4203 

2720 

STA 

ICCOM.X 

CLOSE SCREEN 

9052 

2056E4 

2730 

JSR 

CIOV 

BY USING CIO 

9055 

30CE 

2740 

BMI 

REBOOT 

COLDBOOT IF 



2750 



ERROR ELSE CONTINUE 


9057 

9059 


905C 

905E 


A944 

8D239C 


A217 

A904 


9000 

9060 

9063 

9064 


9D259C 

CA 

DOFA 


2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 

3130 DLOOP 
3140 
3150 
3160 
3170 
3180 
3190 


A DISPLAY LIST IS A SET OF INS- 
TO THE ANTIC VIDEO PROCESOR 
ON POWER-UP THE OPERATING SYS 
TEM SETS THE SCREEN DISPLAY 
MODE TO MODE 2 AND THE START 
OF THE DISPLAY LIST IS PLACED 
AT 9C20 AND THE DATA FOR THE 
DISPLAY LIST IS PLACED AT 9C40 
HOWEVER.AFTER THE OPENING AND 
CLOSING OF THE SCREEN DEVICE 
AFTER RESERVING MEMORY IN THE 
PRECEDING ROUTINE.ANOTHER DISP¬ 
LAY LIST IS CREATED IN LOWER 
MEMORY BY THE O.S. THAT NEW 
DISPLAY LIST IS THE ONE POINTED 
TO BY THE O.S. POINTER DLIST. 

WE CAN SWITCH TO THE DISPLAY 
LIST THAT WE NOW CREATE FOR 
LATER USE BY MAKING DLIST POINT 
TO 9C20 

WE CHANGE THE MODE TO MODE 4 
BY CHANGING SOME PARAMETERS 
IN THE DISPLAY LIST THAT WAS 
CREATED BY O.S. BUT IS NOT 
BEING USED 

LDA #$44 

DSPLST+3 


STA 


LDX 

LDA 


LOAD MEMORY SCAN 
INSTRUCTION TO 
ANTIC. MODE 4 


#23 

#4 


CHANGE THE 24 
LOCATIONS IN 
THE DISPLAY LIST 
STARTING AT DSPLST+5 
TO MODE 4 


STA 

DEX 

BNE 


DSPLST+5.X 


DLOOP 


NOW WE INITIALISE THE BACK¬ 
GROUND CONTROL PROCESS WHICH IS 









3200 :CALLED 

AS 

A TIMED-INTERRUPT 



3210 :ROUTINE 




3220 ; 





3230 ;THE BACKGROUND PROCESS SENDS 



3240 ;A COMMAND 

TO THE SIMULATOR TO 



3250 ;PERFORM 1 

OF ITS 8 HARD-WIRED 



3260 :FUNCTIONS 

BY SENDING THE 



3270 :FNMODE 

COMMAND EVERY TIME THE 



3280 ;ROUTINE IS 

CALLED AS A RESULT 



3290 :OF A TIMED 

-INTERRUPT 



3300 : 





3310 -.EVERY 

1/60 

SECOND TIMER CDTMV2 



3320 ;IS DECREMENTED IF NON-ZERO. IF 



3330 ;AFTER 

DECREMENTING THE COUNT 



3340 :REACHES ZERO THIS ROUTINE IS 



3350 ;CALLED 

. NOTE: LOCATIONS NUMFNC 



3360 -.AND PERIOD 

SHOULD BE INITIAL- 



3370 :ISED IN BASIC BEFORE THE TIMER 



3380 :IS INITIALISED IN BASIC. 



3390 : 



9066 

78 

3400 

SEI 

:DISABLE INT’S 

9067 

A975 

3410 

LDA 

/7INTPT&LO 

9069 

802802 

3420 

STA 

CDTMA2 ;SET VECTOR ADRS 

906C 

A990 

3430 

LDA 

/7INTPT/HI 

906E 

802902 

3440 

STA 

CDTMA2+1 :FOR TIMER CDTMV2 

9071 

58 

3450 

CLI 

:ENABLE INT'S 

9072 

4C8E90 

3460 

JMP 

OVER :JUST INITIALISE 



3470 


:DON’T EXECUTE 



3480 


;UNTIL CALLED 



3490 


:BY O.S. 

9075 


3500 INTPT 

= 

* ;CDTMV2 INT'S GET 



3510 


;VECTORED HERE 

9075 

A09090 

3520 

LDA 

NUMFNC :GET AND SAVE 

9078 

809190 

3530 

STA 

SAVFNC :FUNCTION ft TO BE 



3540 


:SENT TO SIM 

907B 


3550 CLOOP 

= 


907B 

0930 

3560 

ORA 

#FNMODE ;SETUP COMMAND IN 

9070 

209290 

3570 

JSR 

COMMND :ACC AND SEND IT 

9080 

1006 

3580 

BPL 

CMDOK ;N-BIT CLEAR IF 



3590 


;COMMAND REC'D 

9082 

A09190 

3600 

LDA 

SAVFNC -.ELSE GET FNC ft 

9085 

4C7B90 

3610 

JMP 

CLOOP :AND TRY AGAIN 



3620 



9088 


3630 CMDOK 

= 

« 

9088 

A08F90 

3640 

LDA 

PERIOD ;GET TIME BETWEEN 

908B 

801A02 

3650 

STA 

CDTMV2 :GENERATIONS AND 



3660 


:RESET TIMER 

908E 


3670 OVER 

= 

* 

908E 

60 

3680 

RTS 

;END OF INIT 



3690 



908F 


3700 PERIOD 

* = 

*+l :SAVE LOCATIONS 

9090 


3710 NUMFNC 

♦ = 

*+l :PERIOD,NUMENC 

9091 


3720 SAVFNC 

* = 

*+l ;AND SAVENC 



3730 





3740 ;THE FOLLOWING ROUTINES ARE FOR 



3750 ;TRANSFERRIHG DATA TO THE SIMU- 








3760 

:LATOR. THE 

ROUTINE COMMND SENDS 



3770 

:1 OF 4 COMMANDS TO THE SIM WHEN 



3780 

:IT IS CALLED. THE COMMANDS ARE: 



3790 






3800 

:COMMAND EQUATES 




3810 




0000 


3820 

WMODE = 

$00 

WRITE TO DISPLAY 

0010 


3830 

RMODE = 

$10 

READ FROM DISP 

0020 


3840 

TMODE = 

$20 

SEND TRANSITION 



3850 



FUNCTION TO SIM 

0030 


3860 

FNMODE = 

$30 

PERFORM 1 OF 8 



3870 



FUNCTIONS 



3880 

;THE ROUTINE COMMND ASSUMES THAT 



3890 

;THE COMMAND TO BE SENT TO THE 



3900 

;SIMULATOR 

IS STORED IN THE LOW 



3910 

;ORDER SIX 

BITS OF THE 

ACC 



3920 

;THE TOP NIBBLE IS JUST 1 OF THE 



3930 

:ABOVE 4 COMMANDS AND THE LOW 



3940 

;NIBBLE SPECIFIES TO WHICH ONE 



3950 

:OF EIGHT MEMORY PLANES OR 



3960 

:SIMULATOR 

FUNCTIONS THE COMMAND 



3970 

:APPLIES TO 





3980 

;CMMND INITIALISES THE 

6820 



3990 

;PARALLEL INTERFACE ADAPTOR 



4000 

;(PIA) SO THAT COMMANDS CAN BE 



4010 

;SENT. CMMND IS CALLED 

AS A 



4020 

:SUBR0UT1NE 

BY SETDAT WHICH SETS 



4030 

;UP DATA TRANSFER 




4040 






4050 

;PIA EQUATES 


D300 


4060 

PORTA = 

$D300 

PORT A 6820 

D301 


4070 

PORTB = 

$D301 

PORT B 6820 

D302 


4080 

PACTL = 

$D302 

PORT A CONTROL REG 

D303 


4090 

PBCTL = 

$D303 

PORT B CONTROL REG 



4100 




9092 


4110 

COMMND = 

♦ 


9092 

8DC790 

4120 

STA 

SAVCMD 

SAVE COMMAND 



4130 




9095 

AD00D3 

4140 

LDA 

PORTA 


9098 

0940 

4150 

ORA 

#$40 N;MAKE SURE CMMD 

909A 

8D00D3 

4160 

STA 

PORTA 

STROBE IS HIGH 



4170 




909D 

A938 

4180 

LDA 

#$38 

SETUP TO WRITE 

909F 

8D02D3 

4190 

STA 

PACTL 

TO DATA DIRECT¬ 



4200 



ION CONTROL REG 



4210 



OF PORT A (6820) 



4220 



90A2 

8D03D3 

4230 

STA 

PBCTL 

THIS SETS THE 



4240 



CB2 LINE ON THE 



4250 



6820 TO LOW 

90A5 

A97F 

4260 

LDA 

#$7F 

SETUP DIRECTION 

90A7 

8D00D3 

4270 

STA 

PORTA 

FOR DATA LINES 



4280 



D7=IN DO-D6=OUT 

90AA 

A93C 

4290 

LDA 

#$3C 

SETUP TO ADDRESS 

90AC 

8D02D3 

4300 

STA 

PACTL 

PORT A REGISTER 



4310 











90AF 

AD00D3 

4320 


LDA 

PORTA 


READ PORT A TO 

90B2 

3012 

4330 


BMI 

RETURN 


CHECK IF ACK 



4340 





REC’D FROM SIM 



4350 





ACK=LAST COMMAND 



4360 





DONE 



4370 





MSB SET IF ACK 

90B4 

ADC790 

4380 


LDA 

SAVCMD 


RETRIEVE COMMAND 

90B7 

0940 

4390 


ORA 

#$40 


SET STROBE BIT 

90B9 

8D00D3 

4400 


STA 

PORTA 


SEND COMMAND 

90BC 

293F 

4410 


AND 

#$3F 


CLEAR STROBE BIT 

90BE 

8D00D3 

4420 


STA 

PORTA 


AND MSB.SEND CMD 

90C1 

0940 

4430 


ORA 

#$40 


SET STROBE BIT 

90C3 

8D00D3 

4440 


STA 

PORTA 


MSB IS STILL 0 



4450 





SEND COMMAND 



4460 





ON EXIT IF COMMAND 



4470 





WAS SENT N-BIT IS 



4480 





CLEAR.ELSE IT IS 

90C6 


4490 

RETURN 

= 

* 


SET 

90C6 

60 

4500 


RTS 



END OF COMMND 



4510 






90C7 


4520 

SAVCMD 

« = 

*+l 


SAVE LOC,SAVCMD 



4530 








4540 

-.THE ROUTINE SETDAT SETS UP 



4550 

•.DATA 

TRANSFERS BETWEEN THE 



4560 

:ATARI 

AND 

THE SIMULATOR. THE 



4570 

;ROUTINE SENDS A COMMAND BY 



4580 

:CALLING THE ROUTINE COMMND 



4590 

:AND THEN SETS THE 

DIRECTION OF 



4600 

:DATA 

TRANSFER BY ' 

WRITING TO 



4610 

:PORT 

B OF 

THE PIA 

, 




4620 

;THIS 

ROUTINE IS CALLED FROM 



4630 

:BOTH 

BASIC 

AND OTHER ASSEMBLY 



4640 

;LANGUAGE ROUTINES 

. THUS.IT HAS 



4650 

;TWO ENTRY 

POINTS. 





4660 

:A BASIC CALL TO A 

ASSEMBLY 



4670 

;LANGUAGE ROUTINE 

PLACES THE 



4680 

:ARGUMENTS 

OF THE i 

CALL 

ONTO THE 



4690 

:STACK 

PRECEDED BY 

THE 

# OF ARGS 



4700 






90C8 


4710 

^TDAT 

= 



BASIC ENTRY PT 

90C8 

68 

4720 


PLA 



POP # OF ARGS 



4730 





FROM BASIC CALL 

90C9 

68 

4740 


PLA 




90CA 

68 

4750 


PLA 


:GET COMMAND 

90CB 

8DED90 

4760 


STA 

TEMP 

•.SAVE COMMAND 

90CE 

68 

4770 


PLA 




90CF 

68 

4780 


PLA 



GET DIRECTION OF 



4790 





DATA TRANSFER 



4800 





00=IN FF=OUT 

90D0 

AA 

4810 


TAX 



SAVE DIRECTION 



4820 





IN X REG 

90D1 

ADED90 

4830 


LDA 

TEMP 


RETRIEVE COMMAND 



4840 








4850 

:HERE 

IS THE ASSEMBLY LANGUAGE 



4360 

lENTRY 

POINT. IT IS ASSUMED THAT 



4870 

;THE ACC HOLDS THE 

COMMAND AND 







4880 ;THE X REG HOLDS THE DIRECTION 
4890 ; 


90D4 


4900 

SUPDAT 

= 



90D4 

8DED90 

4910 


STA 

TEMP 

SAVE COMMAND 



4920 




AS SUBROUTINE 



4930 




CALL USES ACC 

90D7 


4940 

RPTCMD 

= 



90D7 

ADED90 

4950 


LDA 

TEMP 

RETRIEVE COMMAND 

90DA 

209290 

4960 


JSR 

COMMND 

SEND COMMAND 

90DD 

30F8 

4970 


BMI 

RPTCMD 

IF SIM WAS NOT 



4980 




READY SEND AGAIN 

90DF 


4990 

WAIT 

= 

* 


90DF 

ADOOD3 

5000 


LDA 

PORTA 

WAIT FOR ACKN 

90E2 

30FB 

5010 


BMI 

WAIT 

FROM SIM,MSB=1 

90E4 

8E01D3 

5020 


STX 

PORTB 

SETUP DIRECTION 



5030 




OF DATA TRANSFER 

90E7 

A92C 

5040 


LDA 

#$2C 

WRITING THIS VAL 

90E9 

8D03D3 

5050 


STA 

PBCTL 

TO PORT B CON¬ 



5060 




TROL REGISTER 



5070 




PULLS THE CB2 LINE OF 



5075 




THE 6820 LOW ON THE 



5080 




RISING EDGE OF THE 



5090 




FIRST ENABLE PULSE 



5095 




FOLLOWING MPU WRITE 



5100 




TO PORTB DATA REG 



5110 




CB2 IS THEN SET ON 



5115 




THE RISING EDGE OF 



5120 




THE NEXT ENABLE (CLK) 



5130 




PULSE OF THE 6820 



5140 




THUS, A STROBE TO THE 



5145 




SIMULATOR IS GENER¬ 



5150 




ATED WHEN DATA IS 



5160 




WRITTEN TO PORT B 



5170 





90EC 

60 

5180 


RTS 


READY TO SEND 



5190 




DATA THROUGH 



5200 




PORT B DATA REGS 

90ED 


5210 

TEMP 

* = 

*+l 

SAVE LOC.TEMP 



5220 







5230 

;THE FOLLOWING ROUTINE 

SHOULD 



5240 

;BE CALLED 

AFTER DATA TRANSFER 



5250 

:IS FINISHED. IT SETS 

HIE CB2 



5260 

;LINE 

HIGH 

DISABLING FURTHER 



5270 

;DATA 

TRANSFER AND SETS PORT B 



5280 

;FOR INPUT 

AND SENDS A 

PERFORM 



5290 

;A FUNCTION 

COMMAND 




5300 

;THIS 

ROUTINE ALSO HAS 

TWO ENTRY 



5310 

; POINTS ONE 

FOR BASIC AND ONE 



5320 

;OTHER 

ASSFMBY LANGUAGE ROUTINES 



5330 

» 




90EE 


5340 

STOPD 

= 

* 

BASIC ENTRY PNT 

90EE 

68 

5350 


PLA 


POP # OF ARGS 



5360 







5370 




HERE IS THE ASSEMBLY 



5380 




LANGUAGE ENTRY 



5390 




POINT 






90EF 


5400 

STPDAT 

= 

♦ 

STOP DATA TRNSFR 

90EF 

A938 

5410 


LDA 

#$38 

SETUP TO ADDRESS 

90F1 

8D03D3 

5420 


STA 

PBCTL 

PORT B DIRECTION 



5430 




CONTROL REGISTER 

90F4 

A900 

5440 


LDA 

#0 


90F6 

8D01D3 

5450 


STA 

PORTB 

DIRECTION=INPUT 

90F9 

A930 

5460 


LDA 

#FNMODE 

PREPARE FNC CMMD 

90FB 

0940 

5470 


ORA 

#$40 

SET BIT 6 HIGH 



5480 




TO STROBE SIM 

90FD 

8D00D3 

5490 


STA 

PORTA 

SEND COMMAND 

9100 

60 

5500 


RTS 


END OF STPDAT 



5510 

♦ 






5520 

;THE FOLLOWING ROUTINE 

WRITES 



5530 

:THE CONTENTS OF THE DISPLAY 



5540 

;BUFFER 

IN 

RAM TO A MEMORY PLANE 



5550 

:OF THE 

SIMULATOR. THE 

MEMORY 



5560 

;PLANE 

IS DISPLAYED ON 

THE 



5570 

;COLOR 

MONITOR OF THE SIMULATOR 



5580 

;BY THE 

DOT 

-TIMING LOGIC 



5590 

;HARDWARE OF THE SIMULATOR 



5600 

* 






5610 

:THIS ROUTINE ALSO HAS 

2 ENTRY 



5620 

:POINTS 





5630 

♦ 




9101 


5640 

WRITED 

= 


iBASIC ENTRY PNT 

9101 

68 

5650 


PLA 

;POP OFF it ARGS 

9102 

68 

5660 


PLA 



9103 

68 

5670 


PLA 


GET # OF MEMORY 



5680 




PLANE TO WRITE 



5690 




TO 

9104 


5700 

WRTDSP 

= 

* 

ASSEMBLY ENT PNT 



5710 




THE ACC SHOULD 



5720 




CONTAIN THE NUMBER 



5725 




OF THE MEMORY PLANE 



5730 




TO BE WRITTEN TO 



5740 




BEFORE THIS ROUTINE 



5745 




IS CALLED 

9104 

18 

5750 


CLC 


CLEAR CARRY 

9105 

6900 

5760 


ADC 

#WMODE 

PREPARE WRITE 



5770 




TO PLANE CMMD 

9107 

803291 

5780 


STA 

WCMMD 

AND SAVE IT 

910A 

A900 

5790 


LDA 

#DBUF&LO 


910C 

85CB 

5800 


STA 

PGZ 

:STORE START OF 

910E 

A970 

5810 


LDA 

#DBUF/HI 


9110 

85CC 

5820 


STA 

PGZ+1 

DISPLAY BUFFER 



5830 




IN A PAGE ZERO 



5840 




LOCATION 



5850 




PGZ AND PGZ+1 WILL 



5860 




BE USED AS POINTERS 



5870 




INTO THE DISPLAY 



5880 




BUFFER 

9112 


5890 

WRTAGN 

= 

♦ 


9112 

AD3291 

5900 


LDA 

WCMMD 

RETRIEVE COMMAND 

9115 

A2FF 

5910 


LDX 

#OUT 

DATA TRANSFER 



5920 




DIRECTION IS OUT 

9117 

20D490 

5930 


JSR 

SUPDAT 

SETUP DATA TRANS 









5940 




FER FOR WRITE 

911A 

30F6 

5950 


BMI 

WRTAGN 

IF SIM WAS NOT 



5960 




READY SEND AGAIN 



5970 




ELSE START SENDING 



5980 




DATA THROUGH PORT B 

911C 

AOOO 

5990 


LDY 

#0 


911E 


6000 

WLOOP 

= 

* 


911E 

BICB 

6010 


LDA 

(PGZ).Y 


9120 

8D01D3 

6020 


STA 

PORTB 

USE INDEX REG Y 

9123 

C8 

6030 


INY 


TO SEND THE NEXT 

9124 

D0F8 

6040 


BNE 

WLOOP 

256 BYTES OF THE 



6050 




DISPLAY BUFFER 

9126 

E6CC 

6060 


INC 

PGZ+1 

INCREMENT THE 



6070 




HIGH BYTE OF 



6080 




POINTER INTO BUF 



6090 




SINCE 256 B DONE 

9128 

A5CC 

6100 


LDA 

PGZ+1 

CHECK IF END OF 

912A 

C990 

6110 


CMP 

//DBUF/HI+32 



6120 




BUFFER. WE ARE 



6130 




DONE WHEN WE HAVE 



6140 




SENT 8K BYTES 

912C 

DOFO 

6150 


BNE 

WLOOP 


912E 

20EF90 

6160 


JSR 

STPDAT :STOP DATA TRNSFR 

9131 

60 

6170 


RTS 





6180 



1 

► 

9132 


6190 

WCMMD 


•+1 ; 

;SAVE LOC,WCMMD 



6200 

♦ 






6210 

:THE FOLLOWING ROUTINE 

IS ANA- 



6220 

;LOGOUS TO 

WRTDSP EXCEPT THAT 



6230 

;IT PERFORMS A READ OPERATION 



6240 

:FROM 

IHE SIM MEMORY PLANES 



6250 

f 




9133 


6260 

RDDSP 

= 

« 

:BASIC ENT PT 

9133 

68 

6270 


PLA 

:POP # ARGS 

9134 

68 

6280 


PLA 



9135 

68 

6290 


PLA 


GET M OF MEMORY 



6300 




MEMORY PLANE TO READ 

9136 


6310 

RDDPLY 

= 


ASSEMBLY ENT PNT 



6320 




THE ACC SHOULD 



6330 




HOLD THE if OF THE 



6340 




MEM PLANE TO READ 

9136 

18 

6350 


CLC 


CLEAR CARRY 

9137 

6910 

6360 


ADC 

/yfRMODE 

PREPARE A READ 

9139 

8D6791 

6370 


STA 

RCMMD 

FROM MEM PLANE 



6380 




CMMD AND SAVE IT 

913C 

AOOO 

6390 


LDA 

//DBUF&LO 


913E 

85CB 

6400 


STA 

PGZ 

;STORE START OF 

9140 

A970 

6410 


LDA 

/7DBUF/HI 


9142 

85CC 

6420 


STA 

PGZ+1 

DISPLAY BUFFER 



6430 




IN PAGE 0 LOGS 



6440 




PGZ AND PGZ+1 WILL 



6450 




BE USED AS POINTERS 

9144 


6460 

RTRCMD 

= 

* 

INTO DISPLAY BUFFER 

9144 

AD6791 

6470 


LDA 

RCMMD 

RETRIEVE COMMAND 

9147 

A200 

6480 


LDX 

//IN 

DIRECTION FOR 



6490 




TRANSFER IS INPUT 







9149 

20D490 

6500 

JSR 

SUPDAT 

SET UP DATA TNSFR 

914C 

30F6 

6510 

BMI 

RTRCMD 

IF SIM WAS NOT 



6520 



READY SEND AGAIN 

914E 

AOOO 

6530 

LDY 

#0 


9150 


6540 

RLOOP = 



9150 

AD01D3 

6550 

LDA 

PORTB 

READ DATA FROM 

9153 

8D01D3 

6560 

STA 

PORTB 

MEMORY PLANE AND 



6570 



WRITE BACK TO 



6580 



PORT B TO PRODUCE 



6590 



STROBE. REFER TO 



6600 



COMMENTS FOR SUPDAT 

9156 

91CB 

6610 

STA 

(PGZ).Y 

STORE DATA FROM 

9158 

C8 

6620 

INY 


MEM PLANE INTO 

9159 

D0F5 

6630 

BNE 

RLOOP 

NEXT 256 LOCS OF 



6640 



DISPLAY BUFFER 

915B 

E6CC 

6650 

INC 

PGZ+1 

INCREMENT HIGH 



6660 



BYTE OF POINTER 



6670 



SINCE 256 B READ 

915D 

A5CC 

6680 

LDA 

PGZ-fl 

CHECK IF END OF 

915F 

C990 

6690 

CMP 

)(|fDBUF/HI+32 

9161 

DOED 

6700 

BNE 

RLOOP 

BUFFER. WE ARE 

9163 

20EF90 

6710 

JSR 

STPDAT 

DONE WHEN WE HAVE 



6720 



READ 8K BYTES 

9166 

60 

6730 

RTS 





6740 




9167 


6750 

RCMMD •= 


:SAVE LOC,RCMMD 



6760 






6770 






6780 

;THE FOLLOWING ROUTINE 

WHEN 



6790 

;CALLED AFTER AN "OPEN' 

’ (DEVICE) 



6800 

:COMMAND IN 

BASIC WILL 

PERFORM 



6810 

;DATA TRANSFER FROM THE DISK 



6820 

;DRIVE TO THE DISPLAY BUFFER 



6830 

;(LOADBF),OR SAVE THE DISPLAY 



6840 

■.BUFFER ON 

DISK (SAVBUF). 



6850 

:EACH ROUTINE USES THE 

CIO 



6860 

;FACILITY OF THE OPERATING- SYS 



6870 

;TEM. TO USE CIO WE SET THE 



6880 

;COMMAND BYTE,THE BUFFER ADDRESS 



6890 

-.AND THE BUFFER LENGTH 

. IN 



6900 

;LOADBF THE 

COMMAND BYTE IS $07 



6910 

;FOR "GET CHARACTERS" AND IN 



6920 

iSAVBUF THE 

COMMAND IS 

SOB FOR 



6930 

;"PUT CHARACTERS". IN BOTH 



6940 

;ROUTINES THE BUFFER ADDRESS IS 



6950 

:THE STARTING ADDRESS OF THE 



6960 

iDISPLAY AND THE BUFFER LENGTH 



6970 

:PARAMETER 

IS THE LENGTH OF THE 



6980 

;BUFFER. 





6990 






7000 






7010 

;BOTH ROUTINES EXPECT THE 



7020 

;IOCB it TO 

BE PASSED AS AN ARGU- 



7030 

;MENT OF THE BASIC CALL TO THEM 



7040 




9168 


7050 

LOADBF = 

♦ 

:BASIC ENTRY PNT 








7060 




LOAD DISP BUFFER 

9168 

A007 

7070 


LDY 

#GETCH 

GET CHARS CMMD 



7080 





916A 


7090 

COMMON 

= 


THIS PART OF THE 



7100 




CODE IS COMMON 



7110 




TO BOTH LOADBF 



7120 




SAVBUF 

916A 

68 

7130 


PLA 


POP # OF ARGS 

916B 

68 

7140 


PLA 



916C 

68 

7150 


PLA 

:GET lOCB NUMBER 

916D 

OA 

7160 


ASL 

A 


916E 

OA 

7170 


ASL 

A 


916F 

OA 

7180 


ASL 

A 

CIO EXPECTS 

9170 

OA 

7190 


ASL 

A 

16 TIMES THE 

9171 

AA 

7200 


TAX 


lOCB # IN REG X 

9172 

98 

7210 


TYA 


RETRIEVE CMMD 

9173 

9D4203 

7220 


STA 

ICCOM,X 

SET COMMAND BYTE 

9176 

A900 

7230 


LDA 

#DBUF&LO 


9178 

9D4403 

7240 


STA 

ICBAL.X :SET BUFFER ADRS 

917B 

A970 

7250 


LDA 

#DBUF/HI 


917D 

9D4503 

7260 


STA 

ICBAH,X ; 

; LOW THEN HIGH 

9180 

A900 

7270 


LDA 

#0 


9182 

9D4803 

7280 


STA 

ICBLL.X ; 

;SET BUFFER LEN- 

9185 

A920 

7290 


LDA 

#$20 ;GTH WHICH IS 8K 

9187 

9D4903 

7300 


STA 

ICBLH.X 


918A 

2056E4 

7310 


JSR 

CIOV 

JUMP TO CIO 

918D 

84D4 

7320 


STY 

RESLTL 

SAVE RETURNED 

918F 

A900 

7330 


LDA 

#0 

STATUS IN Y REG 

9191 

85D5 

7340 


STA 

RESLTH 

AS LOW BYTE OF 



7350 




THE RESULT 

9193 

60 

7360 


RTS 





7370 





9194 


7380 

SAVBUF 

= 

♦ 

BASIC ENTRY PNT 



7390 




TO SAVE BUFFER 

9194 

AOOB 

7400 


LDY 

#PUTCH 

PUT CHARS CMMD 

9196 

4C6A91 

7410 


JMP 

COMMON 

GO TO COMMON 



7420 




PART OF DISK 



7430 




DATA TRANSFER 



7440 




ROUTINES 

9199 


7450 

SETPLN 

= 

« 

INITS THE MEM 



7460 




PLANE WITH THE 



7470 




WITH THE VALUE 



7480 

;VALUE 

PASSED TO THE ROUTINE 

9199 

68 

7490 


PLA 


POP # OF ARGS 

919A 

68 

7500 


PLA 


GET VALUE TO 

919B 

68 

7510 


PLA 


WRITE TO PLANE 

919C 

A8 

7520 


TAY 


SAVE IN Y REG 

919D 

68 

7530 


PLA 


GET PLANE # TO 

919E 

68 

7540 


PLA 


WRITE TO 

919F 


7550 

SPIN 

= 

4c 

ASSEMBLY ENT PNT 



7560 




THE Y REG SHOULD 



7570 




HOLD THE VALUE TO 



7580 




WRITE AND THE ACC 



7590 




THE PLANE NUMBER 

919F 

8CBE91 

7600 


STY 

VAL 

SAVE VALUE 

91A2 

A2FF 

7610 


LDX 

#OUT 

DATA DIR = OUT 







91A4 

18 

7620 

CLC 



91A5 

6900 

7630 

ADC 

#WMODE 

FORM WRITE TO 



7640 



PLANE COMMAND 

91A7 

200490 

7650 

JSR 

SUPDAT 

SETUP FOR DATA 



7660 



TRANSFER 

91AA 

A020 

7670 

LDY 

#$20 

WANT TO WRITE 

91AC 

A200 

7680 

LDX 

#0 

8K TIMES 

91AE 

AOBE91 

7690 

LDA 

VAL 

RETRIEVE VALUE 

91B1 


7700 STLOOP 

= 

* 


91B1 

800103 

7710 

STA 

PORTB :SEND TO MEM PLN 

91B4 

CA 

7720 

DEX 



91B5 

OOFA 

7730 

BNE 

STLOOP 

KEEP ON SENDING 

91B7 

88 

7740 

DEY 


UNTIL ALL 8K 

91B8 

OOF7 

7750 

BNE 

STLOOP 

DONE 

91BA 

20EF90 

7760 

JSR 

STPDAT 

STOP DATA TRNSFR 

91BD 

60 

7770 

RTS 





7780 




91BE 


7790 VAL 

* - 

*+l 

SAVE LOC FOR VAL 



7800 




91BF 


7810 SETBUF 

= 


SETS DISPLAY BFR 



7820 



TO VALUE PASSED 



7830 



TO ROUTINE 

91BF 

68 

7840 

PLA 


POP # ARGS 

91C0 

68 

7850 

PLA 


GET VALUE TO 

91C1 

68 

7860 

PLA 


WRITE TO DSP BFR 

91C2 


7870 STBUF 

= 

* 

ASSEMBLY ENT PNT 



7880 



ACC SHOULD HOLD 



7890 



VALUE TO WRITE 

91C2 

80E391 

7900 

STA 

BUFVAL 

SAVE VALUE TO 



7910 



WRITE 



7920 



NOW STORE START OF 



7930 



BUFFER IN LOCS PGZ 

91C5 

A900 

7940 

LDA 

#DBUF&LO 

AND PGZ+1 

91C7 

85CB 

7950 

STA 

PGZ 

LOW BYTE 

91C9 

A970 

7960 

LDA 

#DBUF/HI 


91CB 

85CC 

7970 

STA 

PGZ+1 

;THEN HIGH BYTE 

91CD 

AOOO 

7980 

LDY 

#0 

;READY INDEX REG 

91CF 


7990 BLOOP 

= 



91CF 

A0E391 

8000 

LDA 

BUFVAL 

RETRIEVE VALUE 



8010 



TO WRITE TO BUFR 

91D2 

91CB 

8020 

STA 

(PGZ),Y 

SEND VAL TO BUFR 

91D4 

C8 

8030 

INY 


UNTIL END OF THE 

91D5 

OOF8 

8040 

BNE 

BLOOP 

BUFFER=8K WRITES 

9107 

E6CC 

8050 

INC 

PGZ+1 

INCREMENT HIGH 



8060 



BYTE OF BFR PNTR 



8070 



SINCE 256 B DONE 

9109 

A5CC 

8080 

LDA 

PGZ+1 

CHECK IF 8K DONE 

910B 

C990 

8090 

CMP 

#DBUF/HI+32 

9100 

OOFO 

8100 

BNE 

BLOOP 

;IF NOT CONTINUE 



8110 



;WRITING DATA 

910F 

20EF90 

8120 

JSR 

STPDAT 

:ELSE STOP 

91E2 

60 

8130 

RTS 





8140 




91E3 


8150 BIJFVAL 

♦ = 

*+l 

•SAVE LOC,BUFVAL 



8160 




91E4 


8170 JMPTA8 

= 

* 

:JUMP TABLE FOR 








91E4 

2992 

8180 


.WORD 

ANDP 

ROUTINES WHICH 

91E6 

3292 

8190 


.WORD 

ORP 

AND.OR.EXOR THE 

91E8 

3B92 

8200 


.WORD 

XORP 

DISP BUFFER WITH 



8210 




A MEMORY PLANE 



8220 

:THE FOLLOWING ROUTINE 

AND'S, 



8230 

:OR’S,EXOR’S 

THE DISP BUFFER 



8240 

;WITM /> 

MEMORY PLANE 




8250 




AND.OR 



8260 





91EA 


8270 

INITSN 

= 

* 

EXOR THE DISPLAY 



8280 




BUFFER WITH THE 



8290 




PLANE SPECIFIED 

91EA 

68 

8300 


PLA 


POP # ARGS 

91EB 

68 

8310 


PLA 


GET ft OF FUNC 

91EC 

68 

8320 


PLA 


0=AND 2=0R 4=XOR 

91ED 

8D4492 

8330 


STA 

OFFSET 

AND SAVE IT 

91F0 

68 

8340 


PLA 


GET PLANE /S' TO 

91F1 

68 

8350 


PLA 


USE WITH BUFFER 

91F2 


8360 

START 

= 

« 

ASSEMBLY ENT PNT 



8370 




ACC SHOULD HOLD 



8380 




it OF PLN TO EXOR 

91F2 

18 

8390 


CLC 



91F3 

6910 

8400 


ADC 

#RMODE 

FORM READ FROM 



8410 




PLANE COMMAND 

91F5 

A200 

8420 


LDX 

/ffIN 

DATA DIR=INPUT 

91F7 

20D490 

8430 


JSR 

SUPDAT 

SETUP DATA TRNSF 



8440 




STORE START OF 



8450 




DISPLAY BUFFER 



8460 




IN LOCATIONS PGZ AND 



8470 




PGZ+1 WHICH ACT AS A 



8480 




POINTER INTO THE 



8490 




DISPLAY BUFFER 

91 FA 

A900 

3500 


LDA 

#DBUF&LO 


91FC 

85CB 

8510 


STA 

PGZ 

:LOW BYTE 

91FE 

A970 

8520 


LDA 

#DBUF/HI 


9200 

85CC 

8530 


STA 

PGZ+1 

:THEN HIGH BYTE 

9202 

AOOO 

8540 


LDY 

#0 


9204 

AE4492 

8550 


LDX 

OFFSET 

RETRIEVE OFFSET 



8560 




FOR FUNCTION 

9207 

BDE491 

8570 


LDA 

JMPTAB.X 

GET ADDRESS OF 

920A 

8D4592 

8580 


STA 

JMPADR 

FUNC FROM JUMP 

920D 

BDE591 

8590 


LDA 

JMPTAB+1,X 


9210 

8D4692 

8600 


STA 

JMPADR+1 

:TABLE 

9213 


8610 

FNLOOP 

= 

« 


9213 

BICB 

8620 


LDA 

(PGZ),Y 

GET VALUE FROM 

9215 

6C4592 

8630 


JMP 

(JMPADR) 

BUFFER AND DO 



8640 




LOGICAL OP REQ'D 



8650 




WITH VALUE FROM 



8660 




SIMULATOR 

9218 


8670 

FNRETN 

= 

« 

RETURN FROM 



8680 




LOGICAL OPERATION 

9218 

91CB 

8690 


STA 

(PGZ),Y 

STORE EXOR’ED 



8700 




VALUE IN BUFFER 

921A 

C8 

8710 


I NY 



921B 

D0F6 

8720 


BNE 

FNLOOP 

;DO FOR NEXT 



8730 




:256 LOCS IN BUFR 








921D 

E6CC 

8740 



INC 

PGZ+1 

INCREMENT HIGH 



8750 





BYTE OF BFR PNTR 

921F 

A5CC 

8760 



LDA 

PGZ+1 

CHECK IF END OF 

9221 

C990 

8770 



CMP 

ii'DBUF/HI+SZ 

9223 

DOEE 

8780 



BNE 

FNLOOP ;BUFFER 

9225 

20EF90 

8790 



JSR 

STPDAT ; 

iSTOP IF DONE 

9228 

60 

8800 



RTS 





8810 




1 

► 

9229 


8820 

ANDP 


s 

* 


9229 

2D01D3 

8830 



AND 

PORTB 

AND WITH VALUE 

922C 

8D01D3 

8840 



STA 

PORTB 

FROM MEM PLANE 



8850 





WRITE IT BACK TO 



8860 

;PORTB 

TO PRODUCE A STROBE TO 



8870 

:THE 

SIMUL 

SO THAT IT WILL SEND 



8880 

:THE 

NEXT VALUE 




8890 






922F 

4C1892 

8900 



JMP 

FNRETN 

STORE IN BUFFER 



8910 





AND CONTINUE 

9232 


8920 

ORP 


r 

* 

OR WITH VALUE 

9232 

0D01D3 

8930 



ORA 

PORTB 

FROM PLANE 

9235 

8D01D3 

8940 



STA 

PORTB 


9238 

4C1892 

8950 



JMP 

FNRETN 

CONTINUE 



8960 






923B 


8970 

XORP 


= 

* 

EXOR BUF VALUE 

923B 

4D01D3 

8980 



EOR 

PORTB 

WITH VALUE FROM 

923E 

8D01D3 

8990 



STA 

PORTB 

MEM PLANE 

9241 

4C1892 

9000 



JMP 

FNRETN 

CONTINUE 



9010 






9244 


9020 

OFFSET 

* = 

»+l 

SAVE LOC,OFFSET 

9245 


9030 

JMPADR 

* = 

•+2 

SAVE 2 LOCS 

9247 


9040 



.END 









SIMULATOR BY 
PROVIDES THE 


0010 REM THIS BASIC PROGRAM CONTROLS THE CELLULAR AUTOMATA 
0020 REM CALLING APPRORIATE ASSEMBLY LANGUAGE ROUTINES AND 
0030 REM USER INTERFACE FOR USE OF THE SIMULATOR 

0035 REM THE PROGRAM WORKS IN THE FOLLOWING WAY: IT ACCESSES THE DISK 

0040 REM DRIVE TO PRINT ON THE SCREEN A MENU OF COMMANDS 

0045 REM THAT IS AVAILABLE TO THE USER. THE USER THEN ENTERS THE 

0050 REM SELECTION DESIRED BY ENTERING A SINGLE KEY.THIS CAUSES A 

0055 REM JUMP TO THE ROUTINE WHICH HANDLES THAT FUNCTION. 

0060 REM THE MENU IS READ IN FROM DISK INSTEAD OF USING PRINT STATEMENTS 
0065 REM BECAUSE THERE IS A SHORTAGE OF RAM 

0070 REM IN FACT MUCH OF THE COMMENTS FOR THIS PROGRAM WERE ADDED 
0075 REM AFTER THE PROGRAM WAS TESTED. THE EXECUTABLE CODE OF BOTH 
0080 REM PROGRAMS ARE IDENTICAL 


0085 

REM 





0100 

REM OPERATING 

SYSTEM 

EQUATES 


0110 

KCODE=764 

:REM 

LOC 

CONTAINS CODE FOR LAST 

KEY PRESSED 

0120 

ERRSV=195 

:REM 

LOC 

CONTAINS ERROR NUMBER 


0130 

STOPLN=186 

: REM 

LOC 

CONTAINS LINE AT WHICH 

STOP OCCURED 

0140 

CDTMV2=538 

: REM 

COUNT REGISTER OF COUNTDOWN 

TIMERl 

0150 

PORTB=54017 

:REM 

PORTB OF 6820 PIA 


0160 

REM 





0170 

REM THE FOLLOWING ARE 

THE 

CODE VALUES FOR VARIOUS 

KEYS 

0180 

CLR=255 


:REM 

IF PEEK(KCODE)=255 THEN 

NO KEY INPUT 

0190 

A=63 : B=61 : 

C = 18 : 

D=58 

: E = 42 


0192 

F=56 : G=61 : 

H = 57 : 

1 = 13 

: J = 1 


0194 

K=5 : L=0 : 

M=37 : 

N = 35 

: 0=8 


0200 

P=10 : 0=47 : 

R = 40 : 

Y=43 



0210 

RFM 






0220 

0230 

0235 

0240 

0245 

0250 

0260 

0270 

0200 

0290 

0300 

0310 

0315 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0450 

0460 

0465 


REM EQUATES FOR 

DISPBUF=28672 

RDDSP=37171 

SAVBUF=37268 

WRITED=37121 

LODBF=37224 

SErDAT=37064 

STPDAT=37102 

SETPLI\I = 37273 

SETBUF=37311 

BUFPLN=37354 

REM 

PERIOD=37007 

NUMFNC=37008 

REM 

C$(l) 

D$(40) 
T$(40) 
FNAME${20) 
TXT$(80) 
SAVE$(128) 


ASSEMBLY LANGUAGE SUBROUTINES 

REM START OF DISPLAY BUFFER =7000 HEX 
REM READS SIMULATOR MEM PLANE TO DISP BUFFER 
REM SAVES DISP BUFFER ON DISK 
REM WRITES DISP BUFFER TO SIM MEMORY PLANE 
REM LOADS DISP BUFFER FROM DISK 
REM SETS UP DATA TRANSFER FROM ATARI TO SIM 
REM DISABLES DATA TRANSFER FROM ATARI TO SIM 
REM INITS MEMORY PLANE WITH VALUE PASSED TO IT 
REM INITS DISPLAY BUFFER W/VALUE PASSED TO IT 
REM AND’S.EXOR’S.OR'S DISP BUFFER W/MEM PLANE 

REM LOCATION CONTROLS SPEED OF SIMULATOR 
REM LOCATION CONTROLS WHAT SIMULATOR IS DOING 


DIM C$(l) :REM USED 

DIM D$(40) :REM USED 

DIM T$(40) :REM DISK 

DIM FNAME${20) :REM USED 

DIM TXT$(80) :REM USED 

DIM SAVE$(128) :REM USED 

REM 

C$=CHR$(125) :REM 

POKE CDTMV2.0 :REM 

REM 

REM ♦ START OF MAIN LOOP OF PROGRAM * 

OPEN (5'1,8,0,'’E: " : REM OPEN SCREEN FOR OUTPUT 
REM ALL FURTHER PRINT STATEMENTS OF THE FORM 


FOR CLEARING SCREEN 

FOR USER SUPPLIED FILE NAMES FOR 

DRIVE ACCESSES 

TO ACCESS A TEXT FILE FROM DISK 
TO GIVE USER-PROMPTS 
TO SAVE TRANSITION TABLES 


PRINTING C$ TO SCREEN CLEARS IT 
MAKE SURE COUNT DOWN TIMER IS OFF 


"PRINT #1;"<, 


>" 









0467 REM WILL BE PRINTED ON THE SCREEN 

0470 PRINT //1;C$ ;REM CLEAR SCREEN 

0475 REM READ IN THE TOP LEVEL USER-PROMPTS FROM DISK 

0477 REM AND PRINT IT OUT TO THE SCREEN 

0480 FNAME$="D:TOPLVL.PMT" 

0490 GOSUB 9000 :REM PROMPT USER 

0660 POKE KCODE.CLR :REM CLEAR KEY CODE 

0670 CHAR=PEEK(KCODE) :REM GET KEY CODE FOR LAST KEY PRESSED 
0680 IF CHAR=CLR THEN GOTO 670 : REM WAIT UNTIL A KEY IS PRESSED 
0685 REM * JUMP TABLE FOR TOP LEVEL ♦ 

0690 IF CHAR=A THEN GOTO 880 
0700 IF CHAR=B THEN GOTO 1350 
0710 IF CHAR=C TflEN GOTO 1720 
0720 IF CHAR=D THEN GOTO 2320 
0730 IF CHAR=E THEN GOTO 2580 
0740 IF CHAR=F THEN GOTO 2890 
0750 IF CHAR=G THEN GOTO 7800. 

0760 IF CHAR=H THEN GOTO 3200 
0770 IF CHAR=I THEN GOTO 8800 
0780 PRINT //I; "PLEASE ENTER A VALID COMMAND" 

0790 GOTO 660 :REM INSIST ON VALID INPUT 

0800 REM 

0810 REM EACH OF THE HANDLERS FOR THE TOP LEVEL FUNCTIONS RESIDE 
0820 REM IN LINES 880 TO 3150 FOR COMMANDS "A" THROUGH "F" AND 
0830 REM ALSO IN LINES 7800 TO 8850 FOR COMMANDS "G" THROUGH "I" 
0835 REM EACH HANDLER ALSO HAS ITS OWN INTERNAL JUMP TABLE TO 
0837 REM HANDLE COMMANDS LOCAL TO THAT TOP LEVEL HANDLER 
0839 REM 

0840 REM ****.**»****.********«*********H.N.*»**.*******»*****=i.*i. 
0850 REM HANDLER FOR DEFINING AND DOWNLOADING A TRANSITION RULE 


0870 

0880 

0885 

0890 

0900 

1010 

1020 

1030 

1040 

1045 

1050 

1060 

1070 

1080 

1090 

1092 

1095 

1100 

1105 

1110 

1120 

1130 

1140 

1150 

1160 

1170 


REM 


*#*>!:♦»****.■t!****:****************^'*************#*#****** 


PRINT i^fUCS :REM CLEAR SCREEN 

REM READ IN USER-PROMPTS FROM DISK 
FNAME$="D:TRNSTN.PMT" 

GOSUB 9000 :PROMPT USER 

POKE KCODE.CLR 

PRINT //I; "TYPE ANY CHAR 10 CONTINUE:" 

CHAR=PEEK(KCODE) :REM WAIT UNTIL KEY IS PRESSED 

IF CIIAR=CLR THEN GOTO 1030 

REM 

PRINT #1;"AFTER THE USER MAS INSERTED THE" 

PRINT /71: "CHANGES BY USING THE SCREEN EDITOR" 

PRINT #1:"THE COMMAND 'CONT’ FOLLOWED BY <CR>" 

PRINT #1:"SHOULD BE ENTERED TO CONTINUE" 

LIST 30000.30010 :REM PRINT LINES 30000 TO 30010 OF THIS 
REM PROGRAM WHICH SHOULD DEFINE THE TRANSITION FUNCTION 
POKE KCODE.CLR 

STOP :REM GOTO SCREEN EDIT MODE 

REM WHEN USER TYPES "CONI" EXECUTION CONTINUES W/NEXT LINE 


PRINT in 
PRINT HI 
PRINT U\ 

PRINT if\ 

PRINT in 
POKE KCODE.CLR 
CHAR=PEEK(KCODE) 


C$ :REM CLEAR SCREEN 

"TRANSITION RULE DEFINITION PROCESS" 
"COMPLETED" 

"ENTER 'Y' TO DOWNLOAD THIS RULE" 
"ANY OTHER CHAR TO ABORT" 




1180 

1190 

1195 

1200 

1210 

1215 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1355 

1360 

1370 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1685 

1690 

1700 

1710 

1720 

1725 

1730 

1740 

1830 

1840 

1850 

1860 

1865 

1870 

1880 

1890 


IF CHAR=CLR THEN GOTO 1170 
IF CMAROY THEN GOTO 1220 

REM IF INPUT CHAR IS NOT "Y" THEN ABORT ELSE DOWNLOAD RULE 

GOSUB 3170 :REM DOWNLOAD ROUTINE 

GOTO 470 :REM GOTO MAIN LOOP OF PROGRAM 

REM 

PRINT #1;C$ :REM ABORT DOWNLOADING OF TRANSITION RULE 

PRINT #1;"RULE NOT DOWNLOADED" 

POKE KCODE.CLR 

PRINT #1;"ENTER ANY CHAR TO GET BACK TO TOP" 

PRINT #1; "LEVEL OF THE PROGRAM" 

CHAR=PEEK(KCODE) 

IF CHAR=CLR THEN GOTO 1270 

GOTO 470 :ALSO RETURN TO MAIN LOOP OF PROGRAM 

REM * END OF TRANSITION RULE DEFINITION PROCESS * 

REM 

********************************************************* 

REM HANDLER FOR SETTING UP THE INITIAL STATE OF THE SIMULATOR 
*****♦*♦**********♦*♦*♦************»****♦♦♦*♦**♦****•***• 

PRINT /71:C$ :REM CLEAR SCREEN 

REM ACCESS USER PROMPTS FROM THE FILE "D:SETUPSIM.PMT" 
FNAME$="D;SETUPSIM.PMT" 

GOSUB 9000 :REM AND PROMPT USER 

POKE KCODE.CLR 

CHAR=PEEK(KCODE) :WAIT FOR USER INPUT 

IF CHAR=CLR THEN GOTO 1530 

REM JUMP TABLE FOR SETUP DISPLAY HANDLER 

IF CHAR=A THEN GOTO 3440 

IF CHAR=B THEN GOTO 3560 

IF CHAR=C THEN GOTO 3650 

IF CHAR=D THEN GOTO 3780 

IF CHAR=E THEN GOTO 3880 

IF CIIAR=F THEN GOTO 3970 

IF CHAR=G THEN GOTO 4070 

IF CIIAR=H THEN GOTO 4160 

IF CHAR=I THEN GOTO 4230 

IF CHAR=J THEN GOTO 4300 

IF CHAR=K THEN GOTO 4380 

PRINT (¥1; "PLEASE ENTER A VALID COMMAND" 

GOTO 1520 :REM INSIST ON VALID INPUT 

REM * END OF SETUP SIMULATOR HANDLER * 

********************************************* 

REM RUN SIMULATOR ROUTINES ARE HANDLED FROM HERE 
********************************************* 

PRINT #1:C$ :REM CLEAR SCREEN 

REM ACCESS USER-PROMPTS FROM DISK 
FNAME$="D:RUNSIM1.PMT" 

GOSUB 9000 :REM AND PROMPT USER 

POKE KCODE.CLR 

CHAR = PEEK(KCODE) REM WAIT FOR INPUT 
IF CHAR=CLR THEN GOTO 1840 

IF CHAR=0 THEN GOTO 470 :REM USER WANTED TO RETURN TO MAIN LOOP 
REM IF INPUT CHAR WAS "Q" ELSE PROCEED 
PRINT #1:C$ :REM CLEAR SCREEN AGAIN 

FNAf'1E$ = "D:RUNSIM2.PMT" 

GOSUB 9000 :REM AND GET USER-PROMPTS 


2060 POSITION 2,19 :REM PLACE CURSOR ON LOWER-LEFT 
2065 PRINT #1;"PLEASE ENTER YOUR COMMAND: " 

2070 POKE KCODE.CLR :REM CLEAR KEY CODE 
2080 CHAR=PEEK(KCODE) :REM AND WAIT FOR INPUT 
2090 IF CflAR=CLR THEN GOTO 2080 


2100 

REM JUMP 

TABLE 

FOR 1 

RUNNING SIMULATOR 

2110 

IF 

CHAR=A 

THEN 

GOTO 

4480 

2120 

IF 

CHAR=B 

THEN 

GOTO 

4570 

2130 

IF 

CHAR=C 

THEN 

GOTO 

4660 

2140 

IF 

CHAR=D 

THEN 

GOTO 

4750 

2150 

IF 

CHAR=E 

THEN 

GOTO 

4830 

2160 

IF 

CHAR=F 

THEN 

GOTO 

4920 

2170 

IF 

CHAR=G 

THEN 

GOTO 

5010 

2180 

IF 

CHAR=H 

THEN 

GOTO 

5100 

2190 

IF 

CHAR=I 

THEN 

GOTO 

5190 

2200 

IF 

CHAR=J 

THEN 

GOTO 

5330 

2210 

IF 

CHAR=K 

THEN 

GOTO 

5410 

2220 

IF 

CHAR=L 

THEN 

GOTO 

5480 

2240 

IF 

CHAR=N 

THEN 

GOTO 

5790 

2250 

IF 

CHAR=0 

THEN 

GOTO 

470 


2260 PRINT #1;"PLEASE ENTER A VALID COMMAND" 

2270 GOTO 2070 :REM INSIST ON VALID INPUT 

2280 REM * END OF RUN SIMULATOR HANDLER ♦ 

2290 REM ***•**♦«****••*=»*■►♦*=*=**♦♦*«****♦****♦«•*♦ 

2300 REM START OF SAVE/RETRIEVE TRANS RULE HANDLER 
2310 REM »***************************s<************ 

2315 REM 

2320 PRINT :REM CLEAR SCREEN 

2325 REM ACCESS USER-PROMPTS FROM DISK 
2330 FNAME$="D:SAVRTVTR.PMT" 

2340 GOSUB 9000 :REM AND PRINT IT ON SCREEN 

2410 POSITION 2,19 :PLACE CURSOR ON LOWER LEFT 
2420 PRINT (71; "PLEASE ENTER YOUR COMMAND:" 

2430 POKE KCODE.CLR :REM CLEAR KEY CODE 
2440 CHAR=PEEK(KCODE) :REM AND WAIT FOR INPUT 
2450 IF CHAR=CLR THEN GOTO 2440 
2460 REM * JUMP TABLE • 

2470 IF CHAR=A THEN GOTO 6530 
2480 IF CHAR=B THEN GOTO 6680 
2490 IF CHAR=C THEN GOTO 6840 
2500 IF CHAR=D THEN GOTO 7000 
2510 IF CHAR=E THEN GOTO 470 

2520 POSITION 2,19 :REM KEEP SCREEN CLEAN BY OVERWRITING AT 
2525 REM SAME PLACE ON THE SCREEN TO PREVENT SCROLLING 
2530 PRINT //I; "PLEASE ENTER A VALID COMMAND:" 

2540 GOTO 2430 :INSIST ON VALID INPUT 

2545 REM * END OF SAVE/RETRIEVE TRANSITION RULE HANDLER * 

2550 REM ****************************************^>:**** 

2560 REM START OF SAVE/RETRIEVE DISPLAY BUFFER HANDLER 
2570 REM ****=»**=«**»*=*>•******♦♦««**********♦*»***♦##* 

2580 PRINT i71;C$ :REM CLEAR SCREEN 

2585 REM AND ACCESS USER-PROMPTS FROM DISK 
2590 FNAME$="D:SAVRTVDB.PMT" 

2600 GOSUB 9000 :REM PRINT PROMPTS ON DISK 

2750 POSITION 2,19 :REM KEEP SCREEN CLEAN BY OVERWRITING 

2760 PRINT #1;"PLEASE ENTER YOUR COMMAND:" 


2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2855 

2860 

2870 

2880 

2890 

2895 

2900 

2910 

3020 

3030 

3040 

3050 

3055 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3165 

3170 

3180 

3190 

3195 

3197 

3200 

3205 

3210 

3212 

3215 

3217 

3219 

3215 

3220 

3222 

3225 

3226 

3227 

3228 

3230 

3240 

3250 


POKE KCODE.CLR :REM AT THE SAME LOCATION 

CHAR=PEEK(KCOOE) :REM CLEAR KEY CODE AND WAIT FOR INPUT 

IF C1IAR=CLR THEN GOTO 2780 

IF CHAR=A THEN GOTO 7220 

IF CHAR=8 THEN GOTO 7380 

IF CHAR=C THEN GOTO 470 

POSITION 2,19 :REM KEEP SCREEN CLEAN 

PRINT #1;"PLEASE ENTER A VALID COMMAND;" 

GOTO 2770 ;REM INSIST ON VALID INPUT 

REM * END OF SAVE/RETRIEVE DISPLAY BUFFER HANDLER * 

Rff,, «*»***♦»***♦******,**»»♦*******♦*#****=»»♦** 

REM START OF SAVE/RETRIEVE MEMORY PLANE HANDLER 

PRINT f71:C$ :REM CLEAR SCREEN 

REM ACCESS USER-PROMPTS FROM DISK 
FNAME$="D:SAVRTVMP.PMT" 

GOSUB 9000 :REM AND PRINT IT 

POSITION 2,19 :REM PLACE CURSOR ON LOWER LEFT 

PRINT //I; "PLEASE ENTER THE COMMAND YOU WISH: " 

POKE KCODE,CLR :REM CLEAR KEY CODE 
CHAR=PEEK{KCODE) :REM AND WAIT FOR INPUT 
REM » JUMP TABLE • 

IF CHAR=CLR THEN GOTO 3050 
IF CHAR=A rilEN GOTO 7530 

IF CHAR=B THEN GOTO 7630 

IF CHAR=C THEN GOTO 470 

POSITION 2,19 :REM KEEP SCREEN CLEAN BY OVERWRITING 
PRINT /5(1; "PLEASE ENTER A VALID COMMAND:" 

GOTO 3040 :REM INSIST ON VALID INPUT 

REM * END OF TOP LEVEL HANDLERS FOR COMMANDS "A" THROUGH "F" * 
REM * MORE TOP LEVEL HANDLERS AT LINES 7800 TO 8850 * 

REM 

END :REM PREVENT TRIGGERING OF FOLLOWING SUB-HANDLERS 

REM 

REM DOWNLOAD ROUTINE IS HERE 

REM 

INDEX=1 

REM CALL ASSEMBLY LANGUAGE ROUTINE TO SETUP DATA TRANSFER FROM 
REM ATARI TO SIMULATOR 

X=USR(SETDAT,32,255) ;REM 32+N=DOWNLOAD TRANSITION FUNCTION TO 
REM TRANSITION TABLE N OF SIMULATOR. 

X=USR(STPDAT) :REM 255=DIRECTION OF DATA TRANSFER IS OUTPUT 

REM REFER TO ASSEMBLY LANGUAGE LISTING 

REM DISABLE DATA TRANSFER; THIS INITIALISATION KLUGE IS DUE TO 
REM THE FACT THAT THE DISK DRIVE ALSO USES LINE CB2 OF 6820 PIA 
REM REFER TO ASSEMBLY LANGUAGE LISTING 
TNUM=0:REM ONLY TRANSITION TABLE 0 AVAILABLE 
X=USR(SETDAT,32+TNUM,255) :REM SETUP DATA TRANSFER 
REM 

REM THE TRANSITION TABLE IS A LOOK-UP TABLE THAT HOLDS THE NEXT 
REM VALUE OF THE CENTER CELL C FROM THE PRESENT STATE OF CENTER 
REM CELL AND ITS NEIGHBORING CELLS N,S,W,E WHICH ARE ORTHOGONAL 
REM TO THE CENTER CELL 

FOR C=0 TO 1 :REM FOR EVERY POSSIBLE VALUE OF PRESENT STATE 
FOR W=0 TO 1 
FOR E=0 TO 1 


3260 FOR N=0 TO 1 
3270 FOR S=0 TO 1 

3280 GOSUB 30000 :REM CALCULATE THE NEXT STATE X OF THE CENTER 

3285 REM CELL AND WRITE IT TO THE SIMULATOR VIA PORTB 
3287 REM TO FORM THE TRANSITITION TABLE ONLY LSB USED 

3290 POKE PORTB,X :REM X=0 OR 1 

3300 POKE PORTB,0 :REM THIS SYNCS THE SIM AND VALUE IS IGNORED 

3305 REM NOW SAVE THE RETURNED VALUE IN A STRING 

3310 LET SAVE$(INDEX)=CHR$(X) 

3320 INDEX=INDEX+1 :REM INCREMENT INDEX INTO STRING 

3330 NEXT S 

3340 NEXT N 

3350 NEXT E 

3360 NEXT W 

3370 NEXT C :REM DO FOR ALL POSSIBLE CASES 

3380. X = USR(STPDAT) :REM DISABLE DATA TRANSFER 

3382 REM SINCE THIS ROUTINE CHANGES GLOBAL KCODE VARIABLES 

3383 WE REINITIALISE THEM BEFORE RETURNING 

3384 N=35:C=18:E=42 
3390 RETURN 

3400 REM ** END OF DOWNLOAD ** 

3410 REM ******************************=i.*************i.**=i=**** 

3420 REM HANDLER TO WRITE A VALUE TO THE SIMULATOR MEM PLANES 
3430 REM *=<■**♦**»*»****♦**♦***♦***♦.•»**************»**:!.******* 

3440 PRINT //1;C$ :REM CLEAR SCREEN 

3450 PRINT //1;"PLEASE ENTER VALUE TO WRITE" 

3455 REM THE KEY LAST PRESSED WILL BE PRINTED ON THE SCREEN IF 
3457 REM WE DON'T CLEAR THE KCODE LOCATION 

3460 POKE KCODE,CLR :INPUT VALUE :REM GET VALUE TO WRITE 
3470 PRINT #1;"PLEASE ENTER PLANE NUMBER TO WRITE" 

3480 INPUT NUMPLN :REM GET PLANE NUMBER TO WRITE 

3490 REM NO CHECK FOR INPUT ERROR SINCE THE ASSEMBLY ROUTINE TRUNCATES 
3495 REM CALL ASSEMBLY LANGUAGE ROUTINE 
3500 X=USR(SErPLN,VALUE,NUMPLN) 

3510 GOTO 1350 :REM GO BACK TO SETUP HANDLER 

3520 REM *** END OF "A" COMMAND FOR SETUP *** 

3530 REM «***********H..i.*»*H.N.***»N.**#*H.*********** 

3540 REM HANDLER TO WRITE VALUE TO DISPLAY BUFFER 
3550 REM ***♦*»*****=!.********♦*♦♦***#*♦*********:# 

3560 PRINT //1;C$ :REM CLEAR SCREEN 

3570 PRINT /i'l;"ENTER THE VALUE TO WRITE TO DISP BUF" 

3580 POKE KCODE,CLR :INPUT VALUE :REM GET VALUE TO WRITE 
3590 REM NO ERROR CHECKING SINCE ASSEMBLY LANGUAGE ROUTINE TRUNCATES 
3595 REM CALL ASSEMBLY LANGUAGE ROUTINE 
3600 X=USR{SETBUF,VALUE) 

3610 GOTO 1350 :REM GO BACK TO SETUP HANDLER 

3615 REM END OF COMMAND "B" OF SETUP INITIAL CONDITIONS HANDLER 

3620 REM ********************************** 

3630 REM WRITE A BOX TO THE DISPLAY BUFFER 
3640 REM H-************-********************* 

3650 PRINT #1;C$ :REM CLEAR SCREEN 

3660 X=USR(SETBUF,0) :REM CLEAR DISPLAY BUFFER 

3670 ROW=32 :REM 32 BYTES/ROW ON SIMULATOR MONITOR 

3675 REM THE SIMULATOR DISPLAY IS FORMED BY 256 RASTER SCAN LINES 

3677 REM WITH 256 PIXELS IN EACH LINE 

3678 REM PUT THE BOX IN THE CENTER 



3680 INDEX=ROW*120+15 :REM OFFSET FOR LEFT-UPPER CORNER OF BOX 

3685 REM PUT THE VALUE 255 (ALL I'S) IN AN AREA 16 PIXELS WIDE 

3687 REM BY 16 PIXELS HIGH IN THE DISPLAY BUFFER 

3690 FOR CELL=DISPBUF+INDEX TO DISPBUF+INDEX+16*ROW STEP ROW 

3700 POKE CELL,255 

3710 POKE CELL+1,255 

3720 NEXT CELL 

3730 GOTO 1350 :REM BACK TO SETUP HANDLER 

3740 REM END OF COMMAND "C" OF SETUP HANDLER 
3750 REM ****************************=i«***=i.****** 

3760 REM AND MEMORY PLANE WITH DISPLAY BUFFER 
3770 REM ************»*******************H.****** 

3780 PRINT #1;C$ :REM CLEAR SCREEN 

3790 PRINT #1;"ENTER THE PLANE NUMBER TO AND" 

3800 POKE KCODE.CLR :INPUT NUMPLN :REM GET PLANE NUMBER TO AND 

3810 REM NO ERROR CHECK BECAUSE TRUNCATION BY ASSEMBLY ROUTINE 
3815 REM CALL APPRORIATE ASSEMBLY LANGUAGE ROUTINE 
3820 X=USR(BUFPLN,0,NUMPLN) 

3823 REM NOW WRITE THIS VALUE TO THE MEMORY PLANE 
3825 X=USR(WRITED,NUMPLN) 

3830 REM 

3840 GOTO 1350 :REM RETURN TO SETUP HANDLER 

3850 REM *************************************** 

3860 REM OR MEMORY PLANE WITH DISPLAY BUFFER 
3870 REM *»H.»*******i.****************=i.*»**N.***** 

3880 PRINT #1:C$ :REM CLEAR SCREEN 

3890 PRINT /71: "ENTER THE PLANE NUMBER TO OR" 

3900 POKE KCODE.CLR : INPUT NUMPLN :REM GET if OF PLANE TO OR 
3905 REM CALL APPRORIATE ASSEMBLY LANGUAGE ROUTINE 
3910 X=USR(BUFPLN,2.NUMPLN) 

3913 REM WRITE THIS VALUE TO THE MEMORY PLANE 
3915 X=USR(WRITED,NUMPLN) 

3920 REM 

3930 GOTO 1350 :REM RETURN TO SETUP HANDLER 

3940 REM *********»*****»**********t»*H.**»***** 

3950 REM EXOR MEMORY PLANE WITH DISPLAY BUFFER 
3960 REM ***»***H<**»*************i.***=»*H.****** 

3970 PRINT #1;C$ :REM CLEAR SCREEN 

3980 PRINT 71;"ENTER THE PLANE NUMBER TO EXOR" 

3990 POKE KCODE.CLR :INPUT NUMPLN :REM GET 7 OF PLANE TO EXOR 

3995 REM CALL ASSEMBLY LANGUAGE ROUTINE 
4000 X=USR(BUFPLN.4,NUMPLN) 

4003 REM WRITE BACK TO MEMORY PLANE 
4005 X=USR(WRITED,NUMPLN) 

4010 GOTO 1350 :REM RETURN TO SETUP HANDLER 

4020 REM 
4030 REM 

4040 REM ************************** 

4050 REM MOVE SIMULATOR DISPLAY UP 
4060 REM ***»*********-************* 

4065 REM THE BACKGROUND CONTROl. PROCESS (SEE ASSEMBLY LISTING) WILL 

4066 REM SEND FUNCTION 7 6 COMMAND TO THE SIMULATOR. THE HARDWARE 

4067 REM OF THE SIMULATOR WILL MOVE THE DISPLAY UP 

4070 POKE NUMFNC,6 :REM FUNCTION 6 

4080 POKE PERIOD,0 :REM DO ONCE ONLY 

4090 POKE CDTMV2,1 :REM TURN ON BACKGROUND CONTROL PROCESS 



4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4440 

4450 

4460 

4470 

4475 

4477 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4625 

4630 


REM 

REM RETURN TO SETUP HANDLER 
GOTO 1520 

* 1 .*****.■»****♦*****♦*** ****** 

REM MOVE DISPLAY SIMULATOR DOWN 
REM **************************** 


POKE NUMFNC,4 
POKE PERIOD,0 
POKE CDTMV2,1 
GOTO 1520 

REM **************************** 

REM MOVE SIMULATOR DISPLAY LEFT 

REM **************************** 


REM FUNCTION 4 
REM DO ONLY ONCE 

REM TURN ON BACKGROUND CONTROL PROCESS 
REM RETURN TO SETUP HANDLER 


POKE NUMFNC,5 
POKE PERIOD,0 
POKE CDTMV2,1 
GOTO 1520 

REM ***************************** 

REM MOVE SIMULATOR DISPLAY RIGHT 
REM ***************************** 


REM FUNCTION 5 
REM DO ONLY ONCE 

REM TURN ON BACKGROUND CONTROL PROCESS 
REM RETURN TO SETUP HANDLER 


REM FUNCTION 7 
REM DO ONLY ONCE 

REM TURN ON BACKGROUND CONTROL PROCESS 
REM RETURN TO SETUP HANDLER 


POKE NUMFNC,7 
POKE PERIOD,0 
POKE CDTMV2,1 
GOTO 1520 
REM 

REM ******************************* 

REM RETURN 10 TOP LEVEL OF PROGRAM 
REM ******************************* 

GOTO 470 

REM GO TO MAIN LOOP 
REM 

REM END OF SETUP HANDLER *** 

REM 

REM *** START OF RUN SIMULATOR *** 

R^M ************************************** 

REM PLACES A BOX ON THE SIMULATOR DISPLAY 

R^f,|| *******.****♦******♦**:»*,«*♦»**#****,»,, 

REM THE BACKGROUND CONTROL PROCESS IS USED (SEE ASSEMBLY LISTING) 
REM TO PLACE A BOX ON THE SIMULATOR DISPLAY 


POKE NUMFNC,0 
POKE PERIOD,0 
POKE CDTMV2,1 
GOTO 2070 
REM *** END OF PLACING BOX *** 

REM 

Rf[^ ******************************** 

REM RUNS DOWNLOADED TRANSITION RULE 

Rff,^ ******************************** 

REM 


REM FUNCTION 0 

REM DO ONLY ONCE 

REM TURN ON BACKGROUND PROCESS 

REM GO BACK TO RUN SIMULATOR HANDLER 


POKE NUMFNC,! 
POKE PERIOD,! 
POKE CDTMV2,1 
GOTO 2070 


REM FUNCTION 1 

REM DO UNTIL USER WANTS TO STOP 
REM TURN ON BACKGROUND PROCESS 
REM GO BACK TO RUN SIMULATOR HANDLER 
REM END OF RUNNING DOWNLOADED TRANSITION RULE 
REM 

**************************************************** 







4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4945 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 


REM RUN REVERSIBLE VERSION OF DOWNLOADED TRANSITION RULE 
**♦***********♦***************»***********:»*♦****♦** 


POKE NUMFNC,2 
POKE PERIOD,1 
POKE CDTMV2.1 
GOTO 2070 
REM 
REM 

PEM ********♦**,***=!.***•*♦♦ 

REM RUN "LIFE" 

PEM ********,***H<********** 


REM FUNCTION 2 

DO UNTIL USER WANTS TO STOP 

REM TURN ON BACKGROUND CONTROL PROCESS 

REM GO BACK TO RUN SIMULATOR HANDLER 


POKE NUMFNC.3 
POKE PERIOD,1 
POKE CDTMV2,1 
GOTO 2070 
REM 

pf^ ****,****»*******»********* 

REM MOVES SIMULATOR DISPLAY UP 

PEM *♦♦«*•**»**♦*******•***♦*♦• 

POKE NUMFNC,6 
POKE PERIOD,0 
POKE CDTMV2,1 
GOTO 2070 
REM 
REM 

p^f^ **♦*****♦*»*,.•,*****••***♦*• 

REM MOVE SIMULATOR DISPLAY DOWN 

PEf^ *************************** 


REM FUNCTION 3 

REM RUN UNTIL USER WANTS TO STOP 
REM TURN ON BACKGROUND CONTROL PROCESS 
REM GO BACK TO RUN SIMULATOR HANDLER 


REM FUNCTION 6 MOVES DISPLAY UP 
REM DO ONLY ONCE 

REM TURN ON BACKGROUND CONTROL PROCESS 
REM GO BACK TO RUN SIMULATOR HANDLER 


POKE NUMFNC,4 
POKE PERIOD,0 
POKE CDTMV2.1 


REM FUNCTION 4 MOVES DISPLAY DOWN 
REM DO ONCE ONLY 

REM TURN ON BACKGROUND CONTROL PROCESS 
REM REFER TO ASSEMBLY LANGUAGE ROUTINE FOR CLARIFICATION 
GOTO 2070 :REM GO BACK TO RUN SIMULATOR HANDLER 

REM 
REM 

PEM **************************** 

REM MOVE SIMULATOR DISPLAY LEFT 

Pff^ *********•**=•.*♦♦***♦******** 


POKE NUMFNC,5 
POKE PERIOD,0 
POKE CDTMV2,1 
GOTO 2070 
REM 
REM 

REM ***************************** 
REM MOVE SIMULATOR DISPLAY RIGHT 

PEM ***************************** 


REM FUNCTION 5 MOVES DISPLAY TO THE LEFT 
REM DO ONLY ONCE 

REM TURN ON BACKGROUND CONTROL PROCESS 
REM GO BACK TO RUN SIMULATOR HANDLER 


POKE NUMFNC,7 
POKE PERIOD,0 
POKE CDTMV2,1 
GOTO 2070 
REM 
REM 

REM ♦♦******♦«**=»*•****.*•*** 

REM CHANGE SPEED OF SIMULATOR 

REM ************************* 


:REM FUNCTION 7 MOVES DISPLAY RIGHT 
;REM DO ONLY ONCE 

■:REM TURN ON BACKGROUND CONTROL PROCESS 
:REM GO BACK TO RUN SIMULATOR HANDLER 







5190 

5200 

5210 

5213 

5215 

5217 

5220 

5230 

5235 

5240 

5245 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 


POSITION 2,19 :REM PLACE CURSOR AT LOWER-LEFT 
PRINT #1;"ENTER THE PERIOD IN 1/60 SEC BETWEEN" 

PRINT #l:"GENERATIONS. DEFAULT PERIOD IS 1/60 " 

REM WRITE PROMPTS TO USER 

REM NEED TO CLEAR KEY CODE TO SUPPRESS PRINTING OF THE KEY 

REM THAT WAS PRESSED TO GET TO THIS ROUTINE 

POKE KCODE.CLR :INPUT TIME :REM GET NEW PERIOD 

POKE PERIOD,TIME :REM THIS CHANGES THE PERIOD (SPEED) OF 

REM THE SIMULATOR. REFER TO THE ASSEMBLY LISTING 

POSITION 2,19 :REM CLEAN UP SCREEN BY OVERWRITING PREVIOUS 

REM PRINT STATEMENTS 

PRINT /S'!; "PLEASE ENTER THE COMMAND YOU WISH: 

PRINT #1;" 

PRINT 

GOTO 2070 ;REM GO BACK TO RUN SIMULATOR HANDLER 

REM 

««*«««*»««*«««« 

REM STOP SIMULATOR 

REM **4.******.1.***»* 


POKE CDTMV2,0 
POKE PERIOD,0 
GOTO 2070 
REM HANDLER 
REM 

R^^ ***♦*»♦****♦♦♦******♦****♦** 

REM JUMP TO TOP LEVEL OF PROGRAM 


REM STOP SIMULATOR BY TURNING OFF BACKGROUND 
REM CONTROL PROCESS 

REM GO BACK TO TOP LEVEL OF RUN SIMULATOR 


REM RETURN TO TOP LEVEL 




REM 

GOTO 470 
REM 
REM 
REM 
REM 

REM TRY TO REVERSE SIMULATOR 
***♦****♦*****♦•*♦***♦*♦** 

REM EACH PIXEL OF THE SIMULATOR DISPLAY IS FORMED BY A BIT-MAP 
REM FROM 2 MEMORY PLANES.HENCE EACH PIXEL HAS 4 POSSIBLE GREY 
REM GREY LEVELS. 1 MEMORY PLANE HOLDS THE VALUE FOR THE PRESENT 
REM STATE AND THE OTHER THE VALUES FOR THE PREVIOUS STATE. 

REM IF WE FORM THE NEXT STATE OF THE CENTER CELL BY APPLYING 
REM THE CURRENT TRANSITION RULE EXOR'D WITH THE PREVIOUS STATE 
REM WE FORM A "REVERSIBLE" RULE. WE CAN THEN MAKE THE SIMULATOR 
REM GO BACKWARDS BY SWAPPING THE MEMORY PLANES FOR THE PRESENT 
REM AND PREVIOUS STATES AND RUNNING THE REVERSIBLE RULE 
X=USR{RDDSP.O) :REM READ PLANE 0,CURRENT STATE INTO DISP BUFFER 
OPEN /S'2,8,0 , "D:BUF" 

X=USR(SAVBUF,2) :REM OPEN A FILE AND STORE PLANE 0 ON DISK 
REM 

X=USR{RDDSP,1) 

REM 

X=USR(WRITED,0) 

REM 

REM CLOSE FILE 

CLOSE ftZ ;REM NOW SEND PLANE 0 TO PLANE 1 

OPEN #2,4,0,"D:BUF" 

REM OPEN FILE WHICH HAS PLANE 0 STORED IN IT 
X=USR(LODBF,2) :REM LOAD DISPLAY BUFFER WITH THIS FILE 


REM READ PLANE 1.PAST STATE INTO DISPLAY BUFFER 


REM WRITE PLANE 1 TO PLANE ON 



5610 

5620 

5630 

5640 

5650 

5655 

5660 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5885 

5890 

5900 

5910 

5915 

5920 

5930 

5940 

5950 

5960 

5970 

5975 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6085 

6090 

6100 

6110 

6120 

6130 

6140 

6145 

6150 

6160 

6170 

6180 

6190 


X=USR(WRITED,1) :REM WRITE PLANE 0 TO PLANE 1 

REM 

CLOSE ffZ :REM CLOSE FILE 

GOTO 2070 :GOTO TOP LEVEL OF RUN SIMUALTOR ROUTINE 

REM USER CAN NOW TRY TO REVERSE SIMULATOR BY ENTERING 
REM THE COMMAND FOR RUNNING THE REVERSIBLE TRANSITION RULE 
REM 

******•♦******♦♦♦******♦*♦*************** 

REM RUNS TRANSITION RULES IN SINGLE-STEP MODE 
*♦**»**********»*:!.*•****♦*»♦***********♦• 

POKE CDTMV2.0 
POKE PERIOD,0 

REM TURN OFF SIMULATOR IF NOT ALREADY OFF 
POSITION 2,19 :REM GIVE USER PROMPTS 
PRINT /Sfl;"ENTER 'P’,'Q' OR 'R' TO SINGLE STEP" 

PRINT "THROUGH COMMANDS B,C,D RESPECTIVELY" 

PRINT #1;"ANY OTHER CHAR .TO RUN OTHER SIM FUNCS" 

POKE KCODE,CLR :REM CLEAR KEY CODE 

CHAR=PEEK(KCODE) :REM WAIT FOR INPUT 

IF CHAR=CLR THEN GOTO 5870 

REM JUMP TABLE 

IF CHAR=P THEN GOTO 5990 

IF CHAR=Q THEN GOTO 6150 

IF CHAR=R THEN GOTO 6310 

REM ELSE CLEAN UP SCREEN AND RETURN TO RUN SIMULATOR HANDLER 

POSITION 2,19 
PRINT #1;" 

PRINT U\\" 

PRINT it\\" 

REM 

GOTO 2070 
REM 

REM "P" COMMAND GETS VECTORED HERE 
POKE NUMFNC,! 

POKE PERIOD,0 

POKE CDTMV2,1 :REM TURN ON BACKGROUND CONTROL PROCESS 

REM PROMPT USER 

P’ TO CONTINUE SINGLE-STEPPING" 

"ANY OTHER CHAR TO RUN OTHER SIM FUNCS" 


REM FUNCTION 1 IS > RUN TRANSITION TABLE 
REM DO 1 STEP ONLY 


POSITION 2,19 
PRINT ySfl: "ENTER 
PRINT #1: 

PRINT #1; 

POKE KCODE,CLR 
CHAR=PEEK(KCODE) 

IF CHAR=CLR THEN GOTO 6070 

REM IF CHAR=P THEN CONTINUE SINGLE-STEPPING 

IF CHAR=P THEN GOTO 5990 

POSITION 2,19 

PRINT n-,” 

PRINT #1;" 

REM ELSE CLEAN UP SCREEN AND RETURN TO RUN SIMULATOR HANDLER 
GOTO 2060 

REM "0" COMMAND OF SINGLE-STEP THROUGH RULE GETS VECTORED HERE 


POKE NUMFNC,2 
POKE PERIOD,0 
POKE CDTMV2,1 
POSITION 2,19 


REM FUNCTION 2 IS RUN REVERSIBLE TRANS RULE 

REM DO 1 STEP ONLY 

REM TURN ON BACKGROUND PROCESS 

REM PROMPT USER 


PRINT #1;"ENTER 'Q' TO CONTINUE SINGLE-STEPPING" 






6200 

6210 

6215 

6220 

6230 

6240 

6250 

6255 

6260 

6270 

6280 

6290 

6300 

6305 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6375 

6380 

6390 

6400 

6410 

6415 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 

6550 

6560 

6570 

6580 

6590 

6600 

6610 

6620 

6630 

6640 

6650 

6660 

6670 

6680 

6690 

6700 


PRINT #1:"ANY OTHER CHAR TO RUN OTHER SIM FUNCS" 

PRINT #1;’’ 

REM CONTINUE SINGLE STEPPING AS LONG AS "Q" IS ENTERED 

POKE KCODE.CLR 

CHAR=PEEK(KCODE) 

IF CHAR=CLR THEN GOTO 6230 
IF CHAR=Q THEN GOTO 6150 
REM ELSE CLEAN UP SCREEN AND 
POSITION 2,19 
PRINT #1;" 

PRINT #1;" 

REM THEN RETURN TO TOP LEVEL OF RUN SIMUALTOR HANDLER 
GOTO 2060 
REM COMMAND 
POKE NUMFNC,3 
POKE PERIOD,0 
POKE CDTMV2,1 
POSITION 2,19 
PRINT #1;"ENTER 


"Q" OF SINGLE-STEP HANDLER GETS VECTORED HERE 
REM FUNCTION 3 IS RUN "LIFE" 

REM DO 1 STEP ONLY 
REM TURN ON BACKGROUND PROCESS 
REM PROMPT USER 

R’ TO CONTINUE SINGLE-STEPPING" 

PRINT #1;"ANY OTHER CHAR TO RUN OTHER SIM FUNCS" 

PRINT #1;" 

REM CONTINUE SINGLE-STEPPING THROUGH "LIFE" IF "R" IS ENTERED 

POKE KCODE,CLR 

CHAR=PEEK(KCODE) 

IF CHAR=CLR THEN GOTO 6390 
IF CHAR=R THEN GOTO 6310 
REM ELSE CLEAN UP SCREEN AND 
POSITION 2,19 
PRINT #1;" 

PRINT #1:" 

REM THEN RETURN TO TOP LEVEL OF RUN SIMULATOR HANDLER 

GOTO 2060 

REM 

REM 

REM END OF RUN SIMULATOR ROUTINE 

**♦**********.•»*♦******♦**♦********* 

REM HANDLER FOR SAVING TRANSITION RULES 
**»*♦****************:►******♦•***** 

PRINT /Y1:C$ :RF.M PROMPT USER 

PRINT #1;"ENTER THE NAME YOU WISH TO SAVE THE" 

PRINT >71; "TRANSITION RULE UNDER;" 

INPUT T$ rREM GET NAME TO SAVE RULE UNDER 

REM PUT THE FILE NAME INTO THE PROPER FORMAT BY 
REM CONCATENATING THE FILE NAME TO "D:" 

REM NOW SAVE THE DEFINITION OF THE TRANSITON RULE TO DISK 

LIST D$,30000,30010 

REM 

REM GO BACK TO TOP LEVEL OF SAVE/RETRIEVE TRANSITION RULE HANDLER 

GOTO 2320 

REM 

REM »******«#,**=»***=»♦***» 

REM SAVE TRANSITION TABLE 
rem ********************** 

PRINT )71:C$ :REM CLEAR SCREEN AND PROMPT USER 

PRINT >71; "ENTER THE NAME YOU WISH TO SAVE THE" 

PRINT //I; "TRANSITION TABLE UNDER:" 


POKE KCODE,CLR 
D$="D:" 
D$(3)=T$ 




6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6905 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7050 

7055 

7056 
7060 
7070 
7080 
7085 
7090 

7095 

7096 

7097 

7098 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 


POKE KCODE.CLR 
D$="D:" 
D$(3)=T$ 

OPEN /73.8,0,D$ 
PRINT #3:SAVE$ 
CLOSE #3 
GOTO 2320 


INPUT T$ :REM GET NAME TO SAVE TABLE UNDER 
REM FORMAT INTO PROPER FORM FOR WRITING TO 
REM DISK BY CONCATENATING WITH HEADER "D:" 

REM OPEN A CHANNEL TO DISK DRIVE 
REM AND STORE SAVES WHICH IS THE TRANSITION 
REM TABLE IN STRING FORM ON DISK. 

REM CLOSE CHANNEL AND GO BACK TO TOP LEVEL 
REM OF THE SAVE/RETRIEVE TRANSITION RULE HANDLER 
REM 
REM 

REM RETRIEVE TRANSITION RULE 
******♦♦♦****«**********=» 

PRINT #1:C$ ;REM CLEAR SCREEN AND PROMPT USER 

PRINT #1:"ENTER THE NAME THAT THE RULE IS SAVED" 

PRINT #1;"UNDER:" 


POKE KCODE.CLR 
D$="D:" 
D$(3)=T$ 

GOSUB 9200 
ENTER D$ 


INPUT T$ :REM GET NAME OF RULE TO 

REM AND PUT IN REQUIRED FORMAT FOR DISK 
REM BY CONCATENATING WITH "D:" 

REM SETUP FOR READING IN THIS RULE 
REM WHEN SETUP COMPLETED ENTER THE FILE UNDER 
REM WHICH THE TRANSITION RULE WAS SAVED UNDER 
GOSUB 3170 :REM NOW DOWNLOAD THIS TRANSITION RULE TO THE 

GOTO 2320 :REM SIMULATOR AND RETURN TO TOP LEVEL OF THE 

REM SAVE/RETRIEVE TRANSITION RULE HANDLER 
REM 
REM 

*****=i.********»»********** 

REM RETRIEVE TRANSITION TABLE 

pff., ***«**M.***»:l.**»***»******* 

PRINT #1:C$ :REM CLEAR SCREEN AND PROMPT USER 

PRINT #1; "ENTER THE NAME THAT THE TRANSITION" 

PRINT //I; "TABLE IS SAVED UNDER:" 


POKE KCODE.CLR 
D$="D:" 

D${3)=T$ 

TRAP 9400 
REM EXISTING FILE 
OPEN /73.4.0.0$ 
INPUT #3;SAVES 
CLOSE #3 


INPUT T$ :REM GET NAME OF FILE WHICH HAS 

REM THE TRANSITION TABLE AND PUT IN THE PROPER 
REM FORMAT BY CONCATENATING WITH "D;" 

REM SET TRAP IN CASE USER ASKS FOR A NON 
IF ERROR THEN GOTO 9400 
REM NOW OPEN FILE 
REM READ IN TRANSITION TABLE 
REM CLOSE CHANNEL TO DISK DRIVE 
REM SETUP DATA TRANSFER BETWEEN ATARI AND SIMULATOR 
X=USR(SETDAT.32.255) 

X=USR(STPDAT) :REM SAME KLUGE AS MENTIONED BEFORE 
X=USR(SETDAT.32.255) 

REM 32=LOAD TRANSITION RULE.255=DATA TRANSFER IS OUTPUT 
REM FOR EVERY POSSIBLE STATE OF N.S.W.E.C DOWNLOAD TABLE 
FOR INDEX=1 TO 32 STEP 1 

T$=SAVE$(INDEX.INDEX) :REM GET THE CURRENTLY INDEXED ELEMENT 


X=ASC{T$) 

POKE PORTB.X 
POKE PORTB.O 
NEXT INDEX 
X=USR(STPDAT) 
REM 

GOTO 2320 


REM OF THE STRING AND CONVERT INTO ASCII 
REM X=0 OR 1 FROM THE WAY SAVES WAS FORMED 
REM SYNC SIMULATOR 

REM DISABLE DATA TRANSFER WHEN DONE 
REM GO BACK TO TOP LEVEL OF SAVE/RETRIEVE 
REM TRANSITION RULE HANDLER 







7190 

7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7405 

7410 

7420 

7430 

7435 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7545 

7550 

7560 

7570 

7580 

7590 

7600 

7610 

7620 

7630 

7640 

7645 

7650 

7660 

7670 

7680 

7760 

7770 


***»**♦*.1.********:|.=I.****#=|C»** 

REM SAVES DISPLAY BUFFER ON DISK 
**************************** 

PRINT #1:C$ :REM CLEAR SCREEN AND PROMPT USER 

PRINT #1;"ENTER THE NAME YOU WISH TO SAVE THE" 
PRINT #1;"DISPLAY BUFFER UNDER" 


INPUT T$ :REM GET NAME TO SAVE DISPLAY 
REM BUFFER UNDER AND FORMAT IT FOR DISK 
REM ACCESS BY CONCATENATING WITH "D:" 

OPEN CHANNEL TO DISK DRIVE 
REM SAVE BUFFER ON DISK 
REM CLOSE CHANNEL 

REM GO BACK TO TOP LEVEL OF SAVE/RETRIEVE 


POKE KCODE.CLR 
D$ = " 

D$(3)=T$ 

OPEN #3.8.0,D$ 

X=USR(SAVBUF.3) 

CLOSE #3 
GOTO 2580 
REM DISPLAY BUFFER HANDLER 
REM 
REM 

*****♦,*♦**»,**♦***♦♦**♦***♦* 

REM LOAD DISPLAY BUFFER FROM DISK 
********»*•««********♦***♦*♦* 

PRINT ^1:C$ ;REM CLEAR SCREEN AND PROMPT USER 

PRINT //I; "ENTER THE NAME OF THE FILE YOU WISH" 
PRINT #l;"TO LOAD THE DISPLAY BUFFER WITH:" 

REM GET NAME OF FILE TO LOAD DISPLAY BUFFER WITH 


POKE KCODE.CLR 
D$ = "D: " 
D$(3)=T$ 

TRAP 9400 
OPEN #3.4,0,D$ 
X=USR(LODBF.3) 
CLOSE #3 
GOTO 2580 


INPUT T$ 

REM FORMAT FOR DISK ACCESS BY CONCATENATION 
REM WITH "D:" 

REM SET TRAP FOR POSSIBLITY OF NONEXISTANT 
REM FILE THEN OPEN CHANNEL TO DISK DRIVE 
REM LOAD DISPLAY BUFFER FROM SPECIFIED FILE 
REM CLOSE CHANNEL 

REM RETURN TO TOP LEVEL OF SAVE/RETRIEVE 


REM DISPLAY BUFFER HANDLER 
REM 

RE|V| ************************************ 

REM WRITE DISPLAY BUFFER TO MEMORY PLANE 
**. 1 .********.♦********•**♦*****»****♦ 

PRINT #1:C$ :REM CLEAR SCREEN AND PROMPT USER 

PRINT //I; "ENTER THE PLANE NUMBER TO WRITE TO:" 

REM GET NUMBER OF PLANE TO WRITE TO 
POKE KCODE.CLR :INPUT NUMPLN 

X=USR(WRITED.NUMPLN) :REM WRITE DISPLAY BUFFER TO MEMORY 
GOTO 2890 :REM PLANE SPECIFIED AND RETURN TO TOP LEVEL 

REM OF WRITE/READ MEMORY PLANE HANDLER 
REM 

***»»***««*«♦*******♦*♦• 

REM READ MEMORY PLANE 

*.^***N.****************** 

PRINT #1;C$ :REM CLEAR SCREEN AND PROMPT USER 

PRINT #1;"ENTER THE PLANE NUMBER TO READ FROM:" 

REM GET NUMBER OF PLANE TO READ FROM 
POKE KCODE.CLR :INPUT NUMPLN 

X=USR(RDDSP.NUMPLN) ;REM READ THE MEMORY PLANE TO THE DISPLAY 
GOTO 2890 ;REM BUFFER AND RETURN TO TOP LEVEL OF THE 

REM READ/WRITE MEMORY PLANE FUNCTION HANDLER 
REM 

************************************************** 




7780 REM NEW ROUTINE CAN BE PLACED HERE ; NOTHING AT MOMENT 
7790 REM *****=».K=»*.ic******H.*********»***********»*********** 

7800 GOTO 470 

7810 REM FOR NOW GO BACK TO TOP LEVEL OF PROGRAM 
7820 REM 

8170 REM *=»************=ic***********»* 

8180 REM START OF HELP ROUTINE 
8190 REM ************'**************** 

8200 PRINT #1,C$ :REM GET PROMPTS FROM THE FILE "DtHELP.PMT" 

8210 FNAME$="D:HELP.PMT" 

8220 GOSUB 9000 :REM AND PRINT IT ON THE SCREEN 

8230 PRINT #1;"ENTER ANY KEY TO RETURN TO TOP LEVEL" 

8235 POKE KCODE.CLR :REM CLEAR KEY CODE 

8240 CHAR=PEEK(KCODE) :REM THEN RETURN TO TOP LEVEL OF PROGRAM 
8250 IF CHAR=CLR THEN GOTO 8240 

8260 GOTO 470 ;REM WHEN USER HAS FINISHED READING 

8265 REM 

8770 REM ****************** ■ 

8780 REM EXIT FROM PROGRAM 
8790 REM ************H.***** 

8800 PRINT #1,C$ :REM CLEAR SCREEN AND PROMPT USER 

8810 PRINT j^fl; "ENTER ’CONT’ FOLLOWED BY A <CR> TO" 

8820 PRINT #1:"RESTART PROGRAM" 

8825 POKE KCODE.CLR :REM CLEAR KEY CODE 
8830 STOP :REM EXIT PROGRAM 

8840 GOTO 470 

8850 REM IF THE PROGRAM IS RESTARTED IT WILL START AT TOP LEVEL 
8860 REM 

8870 REM SUBROUTINE TO READ IN USER PROMPTS FROM DISK 

8880 REM THE FILE NAME TO READ TEXT FROM IS PASSED TO ROUTINE BY 

8890 REM FNAMES. OPEN CHANNEL TO DISK DRIVE 

9000 OPEN )74,4,0 , FNAMES 

9010 TRAP 9100 :REM THERE IS NO EOF MARKER SO SET TRAP TO 

9015 REM DETECT AN END OF FILE CONDITION 

9020 INPUT #4,TXT$ :REM READ IN TEXT; USEFUL PART IS ONLY FROM 

9025 REM IHE 9TH ELEMENT TO THE 45TH ELEMENT. SO PRINT THIS PART 

9026 REM ONLY TO THE SCREEN 
9030 PRINT #1;TXT$(9,45) 

9040 GOTO 9020 :REM KEEP ON READING IN TEXT UNTIL THERE IS AN 

9045 REM END OF FILE ERROR 

9050 REM IN WHICH CASE WE GO THE TRAP ROUTINE AT 9100 
9060 REM 

9090 REM TRAP OCCURS WHEN THERE IS NO MORE DATA TO READ 

9100 TRAP 40000 :REM CLEAR TRAP 

9110 CLOSE //4 :REM CLOSE CHANNEL TO DISK 

9120 RETURN :REM AND RETURN 

9190 REM 

9200 REM THIS SUBROUTINE IS CALLED BEFORE AN "ENTER FILE" COMMAND 
9210 REM WHEN AN "ENTER FILE" COMMAND IS ENCOUNTERED THAT FILE 
9220 REM IS LOADED INTO RAM AND AND AN EXIT IS MADE FROM THE PROGRAM 
9230 REM FURTHERMORE.BASIC WILL PRINT "READY". 

9240 REM BY PLACING THE CURSOR IN AN ILLEGAL RANGE 

9250 REM WE WILL FORCE THE PROGRAM TO CONTINUE BY TRAPPING THE ERROR 
9260 REM THAT WILL OCCUR WHEN BASIC HAS FINISHED ENTERING THE FILE 
9270 REM AND PRINTS "READY" 

9280 REM 



9290 POSITION 2,100 :REM PLACE CURSOR BACK IN ILLEGAL RANGE 

9300 TRAP 9330 :SET TRAP 

9310 RETURN :REM END OF SUBROUTINE 

9315 REM 

9320 REM ERROR TRAPPED TO NEXT LINE 

9330 POSITION 2,0 :REM PLACE CURSOR BACK IN A VALID RANGE 

9340 TRAP 40000 :REM CLEAR TRAP 

9350 GOTO 6910 :REM RETURN TO ONLY PLACE THIS TYPE OF ERROR 

9360 REM COULD OCCUR AT 
9370 REM 

9300 REM INCORRECT FILE NAME ERROR TRAPPED HERE 
9390 REM GIVE USER ERROR MESSAGE 

9400 PRINT .4'1:"ERR0R";PEEK(ERRSV) ; "ON LINE"; PEEK(STOPLN)+256*PEEK(STOPLN+l) 
9410 PRINT #1;"PROBABLY AN INCORRECT FILE NAME" 

9420 PRINT #1;"ENTER ANY CHAR TO RETURN TO TOP LEVEL" 

9430 CHAR=PEEK(KCODE) 

9440 IF CHAR=CLR THEN GOTO 9430 

9450 TRAP 40000 ' : REM CLEAR TRAP 

9460 GOTO 470 :REM RETURN TO TOP LEVEL 

9470 REM 

029990 REM LINES 30000 TO 30020 FORM A SUBROUTINE TO CALCULATE 

029995 REM THE NEXT STATE OF THE CENTER CELL GIVEN THE CURRENT 

029997 REM STATE ITS NEIGHBORS ITSELF INCLUDED 

030000 REM HERE IS AN EXAMPLE 

030001 REM BANKS RULE 

030002 TEMP=N+S+W+E:X=C 

030003 IF TEMP=4 OR TEMP=3 THEN X=1 

030004 TEST=(N AND E)+(E AND S)+(S AND W)+(W AND N) 

030005 IF TEMP=2 AND TEST THEN X=0 

030006 REM 

030007 REM 

030008 REM 

030009 REM 

030010 REM 

030020 RETURN 




The follovnng is the contents of the file "D: TOPLVL. PMT". It 
informs the user of what commands are available at the top 
level of the program. The line numbers the word REM and the 
quotation marks have no particular significance;they are stripped 
off by the Basic program. 


10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

16 REM 

17 REM 

18 REM 

19 REM 

20 REM 

21 REM 

22 REM 

23 REM 

24 REM 

25 REM 

26 REM 

27 REM 


"THIS PROGRAM CONTROLS THE CELLULAR 

"AUTOMATA SIMULATOR 

"WHEN A COMMAND IS INVOKED DOCUMEN- 

"TATION EXPLAINING THAT COMMAND WILL " 

"APPEAR 

"THE FOLLOWING COMMANDS ARE AVAILABLE:" 

»» »f 

"A : DEFINE A TRANSITION RULE 

"B : SETUP INITIAL CONDITION FOR SIM " 

"C : RUN THE SIMULATOR 

"D : SAVE/RETRIEVE A TRANSITION RULE " 

"E : SAVE/RETRIEVE THE DISPLAY BUFFER " 

"F : READ OR WRITE TO A MEMORY PLANE " 

"G : NOTHING YET 

"H : HELP 

"I : EXIT THE PROGRAM 

»» ft 

"PLEASE ENTER THE COMMAND YOU WISH: 



The following are the contents of the file "D:HELP.PMT". 

It informs the user in general terms how to use the program 


10 REM "THE USER SHOULD SETUP THE INITIAL 

11 REM "CONDITONS OF THE SIMULATOR DISPLAY 

12 REM "USING COMMAND B AT TOP LEVEL. THEN 

13 REM "THE TRANSITION RULE SHOULD BE DOWN- " 

14 REM "LOADED TO THE SIMULATOR. AT FIRST 

15 REM "COMMAND A AT THE TOP LEVEL OF THE 

16 REM "PROGRAM WOULD BE THE BEST CHOICE 

17 REM "TO DO THIS,AT LEAST UNTIL A LIBRARY " 

18 REM "OF TRANSITION RULES IS CONSTRUCTED 

19 REM "THEN USE COMMAND C TO RUN THE TRAN- " 

20 REM "SITION RULE ON THE INITIAL CONDI- 

21 REM "TION SETUP. THE OTHER COMMANDS ARE 

22 REM "VARIATIONS ON THIS THEME,GENERALLY 

23 REM "SPEAKING. 


The following are the contents of the file "D;SETUPSIM.PMT" 

It informs the the user of the various commands available to 
set up the intial state of the simulator display. Only the text 
within the quotation marks is printed to the screen. This is 
true of all the other files also. 


10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

16 REM 

17 REM 

18 REM 

19 REM 

20 REM 

21 REM 

22 REM 

23 REM 

24 REM 

25 REM 


"THE FOLLOWING COMMANDS ARE AVAILABLE " 
"TO SETUP THE INITIAL CONDITIONS OF 
"THE SIMULATOR 

tf M 

"A : WRITE A VALUE TO THE MEMORY PLANE" 

"B : WRITE A VALUE TO THE DISPLAY BUF " 

"C ; WRITE A BOX TO THE DISPLAY 

"D : AND MEMORY PLANE WITH DISP BUFFER" 

"E : OR MEMORY PLANE WITH DISP BUFFER " 

"F : EXOR MEMORY PLANE WITH DISP BUFR " 

"G : MOVE DISPLAY UP 

"H : MOVE DISPLAY DOWN 

"I : MOVE DISPLAY LEFT 

"J : MOVE DISPLAY RIGHT 

"K : RETURN TO TOP LEVEL OF PROGRAM 

"ENTER THE COMMAND YOU WISH 


The following are the contents of the file "D:TRNSTN.PMT". It 
informs the user how to define a transition rule for the 
simulator. Only the text within the quotation marks are 
printed to the screen. 

10 REM "THE TRANSITION RULE TO DETERMINE THE " 

11 REM "NEXT STATE OF THE CENTER CELL (C) 

12 REM "FROM THE CURRENT STATE OF ITS 

13 REM "4 NEIGHBORS (N.S.W.E) AND THE CURRENT" 

14 REM "STATE OF THE CENTER CELL CAN BE 

15 REM "DEFINED IN THE FOLLOWING WAY: 

16 REM " 

17 REM "THE USER MUST USE THE SCREEN EDITOR " 

10 REM "TO DEFINE A VARIABLE.X. IN TERMS OF " 

19 REM "VARIABLES N.S.W.E AND C IN LINES 

20 REM "30000 TO 30010.WHERE X SHOULD 

21 REM "DETERMINE THE NEXT STATE OF THE 

22 REM "CENTER CELL 


The following are the contents of the file "D:RUNSIMl.PMT". 
It gives the user a reminder to setup the initial conditions 
of the simulator and to download a transition rule before 
attempting to run the simulator. 

10 REM "BEFORE RUNNING THE SIMULATOR IT 

11 REM "MIGHT BE ADVISABLE TO SETUP INITIAL " 

12 REM "CONDITIONS FOR THE SIMULATOR BY 

13 REM "USING THE 'B' COMMAND AT THE TOP 

14 REM "LEVEL OF THE PROGRAM 

15 REM "ALSO,THE TRANSITION RULE TO BE USED " 

16 REM "SHOULD HAVE BEEN DOWNLOADED 

17 REM " 

18 REM "ENTER 'Q'TO RETURN TO TOP LEVEL 

19 REM "ANY OTHER CHARACTER TO CONTINUE 


The following are the contents of the file "D:RUNSIM2.PMT 
It informs the user of what commands are available to run 
the simulator. 


10 

REM 

"THE 

FOLLOWING COMMANDS ARE AVAILABLE " 

11 

REM 

"TO 

CONTROL THE SIMULATOR: 


12 

REM 

ft 



13 

REM 

"A : 

PLACE A BOX IN THE SIMULATOR DISP" 

14 

REM 

"B : 

RUNS DOWNLOADED TRANSITION 

RULE " 

15 

REM 

"C : 

RUNS A REVERSIBLE VERSION 

OF RULE" 

16 

REM 

"D : 

RUNS 'LIFE' 


17 

REM 

"E : 

MOVES DISP UP 

tf 

18 

REM 

"F : 

MOVES DISP DOWN 

It 

19 

REM 

"G : 

MOVES DISP LEFT 

It 

20 

REM 

"H : 

MOVES DISP RIGHT 

It 

21 

REM 

"I : 

CHANGE SPEED OF SIMULATOR 

It 

22 

REM 

"J : 

STOP SIMULATOR 

It 

23 

REM 

"K : 

RETURN TO TOP LEVEL OF PROGRAM 

24 

REM 

"L : 

TRY TO REVERSE SIMULATOR 

It 

25 

REM 

"M : 

DISPLAY BLOWUP ON TERMINAL 

SCREEN" 

26 

REM 

"N : 

RUNS CMMDS B.C.D 1 STEP AT 

A TIME" 

27 

REM 

"0 : 

RETURN TO TOP LEVEL 

It 

28 

REM 

"PLEASE ENTER YOUR COMMAND 

It 


The following is the contents of the file "DrSAVRTVTR.PMT". 
It informs the user of what commands are available to save 
or retrieve transition rules for the simulator. 


10 REM "THE FOLLOWING COMMANDS ARE AVAILABLE " 

11 REM "TO SAVE OR RETRIEVE A TRANSITION RULE" 

12 REM " 

13 REM "A : SAVES DEF’N OF TRANSITION RULE 

14 REM "B : SAVES THE TRANSITON TABLE ONLY 

15 REM "C : RETRIEVES RULE AND DOWNLOADS IT " 

16 REM "D : RETRIEVES TABLE AND DOWNLOADS IT " 

17 REM "E : RETURN TO TOP LEVEL 



The following are the contents of the file "D:SAVRTVMP.PMT 
It informs the user what commands are available to read or 
write to the memory planes of the simulator. 


10 REM "THE FOLLOWING COMMANDS ARE AVAILABLE " 

11 REM "TO READ/WRITE TO THE MEMORY PLANES: " 

12 REM " 

13 REM "A : WRITE THE DISP BUFFTO MEM PLANE " 

14 REM "B : READ MEM PLANE TO THE DISP BUFFER" 

15 REM "C : RETURN TO TOP LEVEL 

16 REM " 

17 REM "COMMAND 'A' LOADS THE DISPLAY BUFFER " 

18 REM "FROM THE MEMORY PLANE USED BY THE 

19 REM "SIMULATOR TO GENERATE ITS DISPLAY 

20 REM "THE INVERSE OPERATION IS CARRIED OUT " 

21 REM "BY COMMAND 'A' 



The following are the contents of the file "DtSAVRTVDB.PMT" 
It informs the user of what commands are available to save 
or retrieve the display buffer from the disk drive. 

10 REM "THE FOLLOWING COMMANDS ARE AVAILABLE " 

11 REM "TO SAVE/RETRIEVE THE DISPLAY BUFFER " 

12 REM "FROM THE DISK DRIVE: 

13 REM " 

14 REM "A : SAVES THE DISPLAY BUFFER ON DISK " 

15 REM "B : LOADS THE DISP BUFFER FROM DISK " 

16 REM "C : RETURN TO TOP LEVEL OF PROGRAM 

17 REM " 

18 REM "TO SAVE THE CURRENT DISPLAY ON THE 

19 REM "SIMULATOR,THE MEMORY PLANE BEING USED" 

20 REM "TO GENERATE THAT DISPLAY MUST BE 

21 REM "LOADED INTO THE DISP BUFFER FIRST 

22 REM "BY USING COMMAND 'F' AT TOP LEVEL 

23 REM "BEFORE USING THE ABOVE ’A’ COMMAND " 

24 REM "SIMILAR STEPS SHOULD BE TAKEN TO 

25 REM "SEND A STORED DISPLAY TO THE SIM 



